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HEHE REVSRREARE™ “SEIETEEE 
Introduction 


The world of adventures and adventuring is a rapidly 
growing one. The popularity of such games has rocket- 
ed from little more than a cult following to a major 
sector of the games market. 

You can now explore this world with your Amstrad 
and this book. We've tried to include as many different 
types of adventure as possible in this book, to give you 
a wide range of examples to enjoy. When you come to 
writing your own adventures (and we've included some 
solid advice at the back of the book to help you with 
this), the experience gained from playing through the 
adventures in this book will ensure you'll be able to 
choose from a number of different types to create the 
kind of adventure which suits you best. 

Allin all, you and your Amstrad are set for a busy and 
entertaining couple of months ahead! 


Tim Hartnell, 
Clive Gifford, 
London, September 1985 


N.B. One technical point: where you see a ‘’ sign that is 
not within speechmarks, change it to a ‘#’ (Hash-SHIFT 
and ‘3’). 


(HUE mmemows SHEED 
THE 
EXPLORER 


We'll start the book with a small and fairly simple 
adventure, just to get you on the way. In this adventure, 
you're exploring the environment around you, looking 
for the Princess. If the choice of object for your quest 
seems a little sexist, by all means change it into a 
Prince, a toadstool, or even your favourite television 
presenter (see line 910). 

The commands are entered in the well-known “verb 
noun” format, so you should try things like GO NORTH, 
CHOP TREE and CLIMB ROPE. You'll soon discover 
which words work with this adventure. 

By the way, we suggest that with The Explorer — as 
with most of the other adventures in this book — you 
make a map of the adventure environment as you are 
exploring it. 
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th FORYOUR 


REMESSEEKAEKASEKERAREC AAA EA TAE 
REMS&XE8S8ETHE EXPLORERKEXE3ER% 
REM#%A CLASSIC MINI-ADVENTURES’ 
REM**FOR BEGINNER ADVENTURERSS% 
REMEESKEKAKKAASA KAKA ERE 
GOSUB 88e 

INK 3,46: INK 1,24: BORDER INT (RND%26) 
CLS:L=2 
GOTO 74e 

PRINT: PRINT" >>>>>>>>>>>>>>>>>>>>>" 
PEN 2 

PRINT: PRINT 

Z=Z+1:1IF Z=2 THEN Z=1:PEN 3 ELSE PEN 


SOUND 1, INT (RND&400) +30 

BORDER INT (RND*26) 

PRINT "I AM ON":PRINT L#(L) 

PRINT "AND I AM CARRYING: “5 : X=: GOSU 
92 

PRINT "I CAN SEE:"3:X=L:sGOSUB 690 
PRINT: INPUT “WHAT NEXT“ sAS 

AS=UPPERS (AS) 

KS$=AS 

IF AS=""" THEN 100 

V$="" 

J=LEN(AS) 3FOR M=1 TO J 

IF LEFTS$(AS,1)=" “ THEN GOSUB 680:GD 
280:GOTO 680:GOTO 280 

GOSUB 679@ 

NEXT M 
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HHT EEH —tmeexrnonse HEH 
2B@ IF V$=“GET" THEN 7250 
290 IF V%="DROP" THEN 450 
3@0 IF V$="CHOP” THEN 520 
3190 IF V$="GO" THEN 560 
320 IF V$=“HELP"” THEN GOTO 650 
330 PRINT “I CANNOT “3kK$ 
346 GOTO 100 
350 X= 
340 FOR B= TO 9 
370 IF BL(B)=L AND AS=BS(B) THEN X=B: BL ¢ 
B)=0 
380 NEXT B 
70 IF X=@ THEN PRINT “IT IS NOT HERE. "“? 
GOTO 100 
400 IF X=5 AND BL(6)=4 THEN BL (5) =4sPRIN 
T “THE WITCH STOPS ME.“:GOTO 100 
410 IF X=1 OR X=9 THEN PRINT "DON’T BE S 
ILLY! "Bb (X)=L 
420 IF X=4 AND L=2 AND BL(3)<® THEN BL(3 
J=2sPEN 1sPRINT"£LLE I SEE GOLD ££££":PE 
N 3 
430 IF X<>5 THEN 100 
440@ PRINT “CONGRATULATIONS, YOU HAVE WON 
THE PRINCESS! !!"sSOUND 1,100,100: 
END 
459 X=0 
460 FOR B=1 TO 9 
470 IF BL(B)=6 AND AS=BS(B) THEN X=B: BL ( 
B)=L 
480 NEXT B 
13 





CHET, MBSRVOURAREERRDS TT HITED 
490 IF X=2 AND L=2 THEN BL(2)=1:BL(8)=2 
5@@ IF X=@ THEN PRINT “I DO NOT HAVE IT. 
519 GOTO 100 
520 IF A$="TREE” AND L=1 AND BL(7)=0 AND 
BL(1)=1 THEN DV=1 
53@ IF DV=1 THEN PRINT “TIMBERRRR! "BL (4 
)=1:BL(2)=1:GOTO 100 
540 IF A$="TREE" THEN PRINT “WITH WHAT?" 
:G0T0100 
550 GOTO 330 
540 IF A$=“NORTH" THEN X=0 
57@ IF A$S="SOUTH" THEN X=1:GOTO 630 
S80 IF AS="EAST" THEN X=2:GOTO 430 
590 IF AS="WEST" THEN X=3:GOTO 630 
600 IF L=2 AND AS="LOG" AND BL(8)=2 THEN 
L=3:GOTO 10e 
610 IF L=3 AND AS="SHORE" THEN L=4eLLiL, 
X=4 
62@ IF L=4 AND BL(3)=@ THEN BL(3)=-1:BL( 
6)=-1: PRINT “THE WITCH TOOK THE GOLD AN 
D RAN!"sGOTO 100 
630 IF LL(L,X)<@, THEN PRINT NS(-LL(L,X)) 
:GOTO 100 
640 L=LL(L,X):GOTO 100 
650 IF L=2 AND (BL(7)=® OR BL(7)=2) THEN 
PRINT “DROP LOG IN WATER...THEN ’GO LOG 
462 GOTO 100 
67@ V$=V$+LEFTS (AS, 1) 
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EET varexnonea— “HFFFEETED 
680 AS=RIGHTS (AS, LEN (AS) —-1) sRETURN 
690 FOR B=1 TO 9 
760 IF BL(B)=X THEN PRINT “, “s5BS(B)5 
710 NEXT B 
720 PRINT 
720 RETURN 
740 DIM L$(4),LL(4,3),BS(9) .BL (9) .N$(2) 
750 DATA "THE EDGE OF THE FOREST","THE N 
ORTH EDGE OF THE LAKE" 
76® DATA “A LOG WHICH I PADDLED ACROSS T 
HE LAKE” 
770 DATA"THE SOUTH SIDE OF A LAKE" 
7B® DATA -2,2,—-2,-2,1,-1,-1,—-1,-1,-1,-1, 
-1,-1,-2,-2,-2 
79® DATA TREE,LOG, GOLD, ROCK, PRINCESS,.WIT 
CH,AXE,LOG IN THE WATER, SHORE 
B@@ DATA 1,-1,-1,2,4,4,9,-1,3 
810 DATA I CANNOT SWIM, THERE IS NOTHING 
THAT WAY 
820 FOR I=1 TO 4:sREAD LS(I)sNEXT I 
830 FOR I=1 TO 4:FOR J=@ TO SsREAD LL(I, 
JVENEXT JsNEXT I 
840 FOR I=1 TO 9sREAD BS(1) sNEXT 
850 FOR I=1 TO 9:READ BL (I) sNEXT 
86@ READ N$(1)sREAD N$(2) 
878 GOTO 106 
880 REMEZEXINSTRUCT IONSES XS 
892 CLS 
960 LOCATE 4,2:PRINT “This mini-adventur 
e involves you" 

15 
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910 PRINT “exploring the area around you 
to find a way to win the Princess of Li 
ght...who," 

92@ PRINT “if rumours are to be believed 
» is somewhere nearby.” 

930 PRINT:PRINT 

949 PRINT " To control your characte 
r in this game requires you to enter th 
e command and the object it is to affec 
t." 

950 PRINT “For example, GET KNIFE’. For 
movement, the direction (based on the c 


ompass points) must be preceded by t 
he ’GQ? command." 

96@ PRINT: PRINT 

978 PRINT ” Your final help is a lis 
t of commands." 


980 PRINT "GO NORTH; GO SOUTH; GO EAST; 
GO WEST; GET; DROPs CHOP; HELP." 

990 PRINT: PRINT: PRINT 

1000 WHILE INKEY$="":WEND 

1610 RETURN 
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{HIEEELI[L _omramumon—"HHEHELLLD 
THE 
PATRIARCH 


Many adventures are constructed on a “grid system”, 
although the actual grid is rarely presented explicitly to 
the player. In this adventure, things are different. You 
are exploring a cave system, and it is built on a grid. 

Run in MODE 0 - to take advantage of the large 
number of colours that can be used in this mode — The 
Patriarch places you in a grid-system world populated 
by fierce dragons, quicksand pits, magic caves, and, of 
course, treasure. As many adventure clichés as pos- 
sible have been squeezed into this world. 

When you first run the program, you will be told 
which user-defined graphic represents which item in 
the world. (You're sure to be very flattered with the 
smiling face which is your user-defined image!) 

Once you've been told which user-defined graphic is 
which, you'll be given a (very) brief glimpse at the 
world from above. Look quickly, and try to remember 
where all the elements of your world are located, so 
you can head for the gold, while avoiding the quick- 
sand... 











HET TT, “poevounabimas {TIPE 


However, it’s not all just up to your memory. You own 
a “magic amulet” (another cliché which fell out of 
somebody else’s adventure), and this is used to indicate 
what is in the caves around you. But because you're not 
much of a whiz when it comes to envoking magic, the 
old amulet doesn't work too well. Certainly you'll know 
what is in at least one of the caves near you, but you 
won't know which cave the amulet information refers to. 

You'll find it easy to play this adventure (although it is 
not so easy to survive) as most of your actions are 
chosen from a menu of possibilities that is presented 
after each move. Because the adventure mns on a very 
early model Amstrad, you'll find the text output re- 
sembles that from an ancient (but colourful) telex 
machine (see the subroutine from line 2500, if you want 
to include this type of output in your own programs). 

And now, Patriarch, it is time to begin, to battle a few 
of those fierce dragons, search for treasure, and all that! 





HTT THE PATRIARCH SE 
1@ REM The Patriarch 

2@ GOSUB 13546 

2@ CLS:PRINT: PRINT: PRINT 

4@ PEN 1 

S@ GOSUB 1444 

40 O= INT (CRNDK7) 

7T@ IF Q=@ AND £“°55 THEN GONSUB 1440 

8@ PEN 2 

9@ CLS:PRINT:FRINT:PREINT “Patriarch "s:A% 
:",":ME=1:GOSUB 25@@:PRINT E 

190 IF G>@ THEN ME=2:PEN 2:GOSUB 250@:PR 
INT G 

11@ GOSUB 97@ 

120 PEN 2 

120 IF H<25 THEN 179 

14@ PRINT “THE GAME IS QVER, ASALL YOUR 
CHARISMA HAS BEEN EXHAUSTED!” 

15@ FOR Z=1 TO 4@@@:NEXT Z:PRINTSFRINT " 
BUT YOU PLAYED WELL.FATRIARCH “;AS$ 

169 PRINT:FOR 2=1 TO 4@@0:NEXT Z:IF G>@ 
THEN PRINT “AND YOU MANAGED TO AQUIRE T 


REASURE WORTH $"G:PRINT:Q=9:GOTO 142 
a 

17@ PRINT: ME=3:GOSUB 250@:PRINT 25-H 

130 PEN & 


199 PRINT: PRINT “WHAT DO YOU WANT TO DO? 


29@ WHILE INKEYS<>"":WEND 
210 PEN 4 


CHEE “RORVOURARRBS ([) 1/11] 1 


22@ PRINT “N -— move North S - move 
South" 

220 PRINT "E - move East W - move 
West" 

246 PRINT "F - Fight dragon Q - Quit" 
250 Z$="" 


260 WHILE z3<>"N" AND 2$4>"S" AND Z$<>"E 
“ AND Z7$<>"W" AND 2$<>"F" AND Z#<>"Q": 7% 

=INKEY$: Z$=UPPERS (2%) : WEND 

270 IF Z$="N" AND A(E-1@)=24@ OR Z$="S" 

AND A(E4+1@)=24@ OR Z$="E" AND A(E+1)=24e 
OR Z$="W" AND ACE-1)=24@ THEN PRINT: SOU 

ND 1,220.99,7,.0.@, 1:ME=4:GOSUB 25¢0:60TC 
250 

29@ SQUND 2,20,7:SOUND 2,590.7 

290 INK 3,24:PEN 2 

200 IF Z$="Q" THEN Q=9:GOTO 1410 

210 A(E)=245 

32@ IF Z$="N" THEN E=E-1@ 

32@ IF Z$="S" THEN E=E+1@ 

24@ IF Z$="E" THEN E=E+1 

=50 IF Z$="W" THEN E=E-1 

36@ IF Z$="F" THEN GOSUR 1150 

37@ IF A(E)=241 THEN PEN 1:GOSUB 45@:REM 
MAGIC 

=8@ IF A(E)=242 THEN PEN 6:GOSUB S5S@:REM 
DRAGON 

290 IF A(E)=243 THEN PEN 4:GOSUB 710:REM 
QUICKSAND 

4@@ IF A(E)=244 THEN FEN 5:GOSUR 820 

20 
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41@ 
420 
4zO 
440 
ASO 
460 


H=H+1: IF F=25 THEN @=-9:GOTO 1400 
GOSUB 1980 
GOTO &6@ 


REM MAGIC 

FRINT: ME=5:GOSUR 2500 

GBNSUB 198@ 

ACE) =245 

FOR J=2 TO 80@ STEP 5@ 

SOUND 5S.J,7:SQUND 2,1200-J,7 

NEXT J 

E=INT (RND#76)412: WHILE A(E)=240:G0TO 


520: WEND 


640 


Sa@: 


679 
68a 


RETURN 


REM DRAGON 

ME=6:GOSUR 25¢0 

GOSUB 1980 

M=RND 

IF M<@.2 THEN ME=7:GOSUB 2500: RETURN 
ME=8:GNSUB 2560 

GOSUB 1982 

IF M>@.85 THEN ME=9: RETURN 
ME=190:GOSUB 2500 

GOSUB 198¢ 

M=RND 

IF M2@.95 OR H718 THEN ME=11:GOSUE 2 
RETURN 

ME=12:GOSUB 250@:FPRINT " "SAS 


GOSUB 1984 
21 





EE “Re HEE 
698 Q=9:GOTO 1400 

TOO. REM —----—-~- =< - - 
719 REM GQUICKSAND 

720 FOR J=1 TO i2 

720 PEN INTCRND*46+1) 

740 PRINT TAB(CJ/2) ; "HORRORS" 

750 PRINT 

760 PRINT TAB(1@-J):"QUICKSAND!" 
77@ SOUND S,.CINT (CAND*7+1000@) .7 
780 PRINT 

77@ FOR DELAY=1 TO 9@:NEXT DELAY 
800 NEXT J 

819 Q=9:H=@:GOTO 14@a 

B82@ REM ~—-—------~----~---~------ 
B82@ REM TREASURE 

840 K=INT (RND£10@) +1006 

B50 FOR J=1 TO 1% 

846 PEN INT C(RND*7+1) 
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99e@ 





PRINT TAR(J/2): "TREASURE !":PRINT 
SOUND 5S.CINT(RND*7@4+10) 7 

PRINT TAE(1@-J3/2) : "TREASURE": PRINT 
FOR DELAY=1 TO 2@@:NEXT DELAY 

NEXT J 

GOSUB 1980 

PRINT: ME=12%:GOSUB 25@@:PRINT kK 
G=G+K 

RETURN 


REM AMULET 
PEN 1 
Y=1 


100@ L=A(E+F(Y)? 

1410 IF L¢4>245 THEN 1056 

192@ IF Y<@ THEN Y=Y+1:GNTO 1ee@0@ 
142@ IF L=245 THEN RETURN 

194@ PRINT "PATRIARCH “:AS;"," 

165@ ME=14:GOSUB 2500 

146@ IF L=24@ THEN ME=15:SCSUB 2500 
107@ IF L=241 THEN ME=16:SOSUB 25aa 
1¢8@ IF L=242 THEN ME=17:GOSUR 2500 


1094 
1198 


IF L=24% THEN ME=18:GOSUB 2See 
IF L=244 THEN ME=19:GOQSUR 25ae 


111@ FRINT “ “::sME=20:GOSUP 25900 


1128 


GCSUB 1980 


112@ RETURN 


1148 


REM -~-~------------------- 


115@ REM ATTACK DRAGON 
1160 PRINT 
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1176 AR=AR-1 

1180 IF AR=@ THEN ME=21;:GCSUB 2500: GOSUR 
1980:RETURN 

1196 ME=22:PRINT ar::GQSUB 2560 

120@ SS=a 

121@ ME=227:GOSUB 25e0 

122@ Z$=INKEYE: ZS=“YUPPERS (79) 

1270 WHILE Z$<>"N" AND Z$7>"S" AND Z#<>" 

E" AND Z$<>"W":3GNTO 1226: WEND 

1246 IF Z$="N" AND A(E-10)=242 THEN SS=1 
:YT=E-19 

125@ IF Z#="S" AND ACE+1@)=242 THEN SS=1 


:YT=E+10 
126@ IF Z$="E" AND A(E+1)=242 THEN SS=1: 
YT=E+t 
127@ IF Z¢="W" AND A(E-1)=242 THEN SS=1: 
YT=E-1 


1280 PRINT 
1290 TF SS=0 THEN ME=24:GQSUB 25@0:GOTO 
1292 
1280 ME=25:GNSUBR 2500 
121@ GOSUBR 198@ 
12720 IF RND?S@.2 THEN 128@ 
1338 ME=26:GOSUB =5¢a 
1240 ACYT)=245 
125@ K=INT (RND*19@) +1@0 
1246@ PRINT 
127@ ME=27:GOQSUB 25@@:FRINT K:G=6+kK:G9TO 
129@ 
ZB@ ME=28:GOSUR 25aa 
24 


THE rmraraumon PEER, 
129@ GOSUR 1980: RETURN 
1400 IF H<1 THEN ME=2°:GNSURB 2560: GOSUB 
198@:GOTO 1426 
141@ ME=3@:GNSUB 256@:PRINT 25-H 
142@ ME=T1: IF G>@ THEN GOSUB 2500: PRINT 
G 
143@ PRINT: PRINT 
1446 ACE) =2446 
145@ FOR J=1 TO 1@@ 
144@ X=A(J)-229 
1470 FEN X 
148@ SOUND 5.A(J)*2,7 
1490 PRINT CHRS (ACI) Is" “3 
15@0 IF 1@XINT(J/1@)=J THEN FRINT 
1510 NEXT J 
1520 GOSUP 1924 
1534 IF Q=9 THEN END 
154@ RETURN 
155@ FEM -~----------------- 
156 MODE @: BORDER @:sFRINT: PRINT: PRINT 
13570 INK @,@:INK 12,2: INK 2,6: INK 3,9: INK 
4,18: INK 5,24: INK 6,26: INK 7,15 
1580 PEN 2 
159@ PRINT “Welcome... "sPRINT: PRINT 
14@@ PEN & 
161@ INPUT "What is your name, Patriar 
ch" :AS 
1462@ A=UPPERS (LEFTS$ (AS. 1))+LOWERS (MIDS ¢ 
AS, 2)) 
162@ CLS:PRINT: PRINT: PEN 4 
25 
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| __ FOR YOUR AMSTRAD Tal 
164@ FRINT "Please stand by Patriarc 
h "sAS 
165@ DIM A(19@) ,.Q(21) 


14668 
1470 
148@ 
1490 


H=@: O=@3 L=@:6=0: AR=6 

FOR B=1 TO 149 

A(B)=245 

IF 8412 OR 8>9@ OR 1@XINT(B/10)=EB C 


R 1O%INT(B/1@)=B-t THEN A(B)=240 


17a 
17190 
1720 
1730 
7390 

1740 
1750 
1760 
1779 
1780 
1798 
1800 
1810 
182@ 
1830 
1846 
185@ 
1860 


NEXT B 

FOR B=1 TO S:RESTORE 

FOR D=1 TQ 5 

Z=INT CRND*76) +123 1F A(Z)=24@ THEN 1 


READ CsA(Z)=C 

NEXT: NEXT 

DATA 24@, 241, 242,242, 244 

FOR B=1 TO 8:READ Z:P(B)=Z:NEXT RB 
DATA -11,-1@,-9,-1,1.9,10,11 

E=55 

RESTORE 201@ 

FOR J=1 TO 31:REM READ MESSAGES 
READ M$: 0%$(.J) =Ms 

NEXT J 

GOSUB 233@:REM DEFINE CHARACTERS 
CLS 

FRINT: PRINT: PRINT “KEY TQ SYMBOLS... 


“SPRINT 


1870 
WALL 
18B@ 


PEN 1:PRINT:PRINT “ “3CHRS(24@);" 

“3 CHRS (24@) 

PEN 2:PRINT:PRINT “  “;CHR$(241):" 
26 





MAGIC CAVE "s:CHRS (241) 


1890 PEN 3:PRINT:PRINT “ “;CHRS(242)5" 
DRAGON "3; CHRS (242) 

1940 PEN 4:PRINTSFRINT " “sCHRS(243):" 
QUICKSAND ":CHRS (243) 

1919 PEN SsPRINTSPRINT " “3 CHRS(244);" 


GOLD "3; CHRS (244) 

1920 PEN &:PS=UPPERS (AS) SPRINTSPRINT “ 
“;CHRS(246)3" "“3sPSs" “3 CHRS (246) 

1936 FEN 7:PRINT:PRINT:PRINT “ Press an 
y key ta continue...” 

1946 WHILE INKEYS="":LL=RND:s WEND 

195@ RETURN 

1940 REM --~---~----------- 

197@ REM DELAY 

198@ FOR DELAY=1 TO 1@@@6:NEXT DELAY 
1990 RETURN 

2@@@ REM -----------~----------- 


THEE Mpguvounkpemmaes |{{/]{/1{1 


2018 DATA You are in cave 

2@26 DATA Treasure $€ 

2@30 DATA CHARISMA LEFT 

2@4@ DATA YOU CAN’ T MOVE THAT WAY!! 

2@50 DATA YOU’ VE STUMBLED INTO A MAG 
IC CAVE &® WILL NOW BE WHISKED TQ ANOTHER 


2068 DATA YOU’ VE WANDERED INTO A DRA 
GON’S LAIR! START SAYING YOUR PRAYE 
RS! 


2070 DATA IT HAS FLOWN AWAY 

2980 DATA IT AWAKENS AND HAS SEEN YOU! 

2@9@ DATA BUT IT HAS RECENTLY EATEN AND 
SO GOES BACK TO SLEEP 

210@ DATA AND NOW IT ATTACKS! 

2114 DATA BUT YOU FIGHT BACK AND WIN! 

2320 DATA GOODBYE PATRIACH 


<iZ@ DATA YCWU’VE FOUND A HOARD QF D 
RAGON’? S GOLD WORTH ¢ 

2140 DATA # YOUR AMULET SIGNAL 
S THERE 1S 


215@ DATA A SOLID WALL 

214@ DATA A MAGIC CAVE 

2176 DATA A DRAGON 

2180 DATA QUICKSAND 

2194 DATA GOLD 

2200 DATA NEARBY 

221@ DATA YOU HAVE USED UP ALLYOUR ARROW 
Seas 


222@ DATA ARROWS LEFT 
28 


jaOaBAag ae ut ? 
HHS tmmramuance HEHEHE 
222 DATA WHICH DIRECTION DO YOU WANT T 
O SHOOT IN (NS E or WwW)? 

224@ DATA THERE WAS NO DRAGON THERE SO Y 


QU HAVE WASTED AN ARROW 
2250 DATA WELL DONE PATRIARCH. YOU’VE HI 


TA FEROCIOUS DRAGON! 

2260 DATA YOU KILLED IT!! 

2270 DATA YOU ARE REWARDED WITH & 
2280 DATA BUT YOU ONLY WOUNDED IT 
i) 


229@ DATA ALL YOUR CHARISMA ISEXHAUSTED. 


220@ DATA CHARISMA LEFT: 
271@ DATA GOLD FOUND: $ 
2220 REM ---~-~-------~--------- 
223@ REM DEFINE CHARACTERS 
224@ REM SOLID WALL - 240 
235@ SYMBOL 24@, 255, 0, 255. @, 255.8, 255,09 
2260 REM MAGIC CAVE — 241 
2370 SYMBOL 241,189, 153.165, 195,195, 145, 
153,126 
2280 REM DRAGON — 242 
2390 SYMBOL 242, 24,126, 153, 255. 126, 124,2 
4,126 
240@ REM QUICKSAND - 243 
2410 SYMBOL 24%, 255, 182,107, 219, 182, 109, 
219,255 
242@ REM GOLD - 244 

29 
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2430 
316 
2440 
2450 
Z440 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
8 
2560 
2570 
2580 
2590 





SYMBOL 244, 146,56, 124, 254, 254, 124,56 


REM ORDINARY WALL —- 245 

SYMBOL 245, 0, 66.0,@,0,@,66,9 

REM PATRIARCH - 246 

SYMBOL 244, 30, 63.47, 127, S50 7.625 30 
RETURN 

REM -~-~-~-~-~--~-~-~-~-~--- 

REM ?TELETYPE’? QUTPUT 

F$=06 (ME) 

FOR J=1 TO LEN(FS$) 

SOUND 5,CINT (RND&1@0+4@@) ,7 

PRINT MID$S(F$,J,1): 

IF MID$(F$,J,1)=" " OR ME=3 THEN 25 


FOR P=1 TO 6@:NEXT P 

IF ME=29 THEN PEN INT (RND*7+1) 

NEXT J 

IF ME<4 OR ME>11 AND ME<2@ OR ME=24 


OR ME=27 OR ME>29 THEN RETURN 


2600 
2610 


PRINT: PRINT 
RETURN 
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3-D Maze/The 
Memnonite 
Stone 


On the morning of 27 December, 1666, Johann-Friedrich 
Schweitzer, a man described in the book The Morning 
of the Magicians (Louis Pauwels/Jacques Bergier) as “a 
violent anti-alchemist” was visited by a stranger, 
dressed in a broad cloak, such as members of the 
Memnonite religious sect wore. The stranger 
presented Schweitzer with a fragment of rock, 
supposedly the “Philosopher's Stone”, which had the 
power of changing base metals into gold. 

We are not told whether the Stone ever worked, and 
the secret of its whereabouts died with Schweitzer. 

Fortunately for mankind, the Stone has been 
detected, hidden within a maze. You have been chosen 
as the person to find it, in this 3-D maze adventure. 
Armed only with your Amstrad, and a patented 
Memnonite Indicator, you set out to brave the maze to 
locate the Stone. 
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The maze is modified from mun to min of the program, 
and the Stone is placed at random within the maze. On 
the screen you'll see a picture of the maze ahead of you, 
projected on to the screen of a hitherto-unknown 
invention, the Maze-O-Scope (created with the aid of 
the Amstrad’s WINDOW commana). 

Your goal, of course, is to find the Stone, and to do it 
in the smallest number of moves. You move through the 
maze using the cursor keys. Pressing the ‘H’ will 
summon up the “Help” option, which shows you the 
maze from above. You are shown on this maze as a 
white smiling face, and the path you've taken so far in 
the run is shown as a series of green dots. There is, 
however, a penalty for calling for help: the number of 
moves you've made so far in the min will be increased 
by five. 

Don't mush through the maze when you first nin this 
program. Wait until you become familiar with the view 
on your Maze-O-Scope, and you'll soon be surprised at 
how good you'll get at making your way around it. In 
addition, you will become very skilled at interpreting 
the output of your Memnonite Indicator, so you can 
significantly improve your time on subsequent muns. 

And now here's the listing, so you can seek the Stone. 


Ee 
i q / 
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16 REM 
2@ GOSUB 742 
30 GOSUB 56 
40 
pel) 
49 
79 
89 
90 
N 12:sPRINT 

100 IF AS<>"H" 


Q 3 
110 
th" 
120 
th" 
130 
te 
149 
t" 
150 LOCATE 1,14 
140 PRINT “NORTH: 
179 IF A(D+1,&)=S 
$<>"S" THEN N=N+1 
180 IF A(D+1,£&)=X 
190 PRINT “SOUTH: 
200 IF A(D-1,E£)=S 
$<>"N" THEN N=N+10 
216 IF A(D-1,E)=X 
220 PRINT 


WHILE NOT SOLVE 
M=M+1 

N=0 

LOCATE 1,10 


IF AS="N" THEN 


IF AS="S* THEN 
IF AS="E" THEN 


IF AS="W" THEN 


THEN PRINT 


“EAST: “5 


D 


PRINT 
PRINT 
PRINT 
PRINT 
HEN PRINT 
THEN PRINT 
wen PRINT 
THEN PRINT 
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3-D MAZE/THE MEMNONITE STONE 


PRINT “MOVE NUMBER";:PEN 2:PRINT MsPE 


"You are facin 


"North": Q$="Nor 


"South": Q@$="Sou 


"East ":Q%=“Eas 


“:03="Wes 


"OPEN": IF A 


"WALL" 


MOPEN"SIF A 


8 WALL a 


ea HIT HEE 
220 IF A(D,E+1)=S THEN PRINT "OPEN": IF A 
$<>"W" THEN N=N+100 
240 IF A(D,E+1)=X THEN PRINT “WALL” 
2508 PRINT "WEST: “3 
26@ IF A(D,E-1)=S THEN PRINT "OPEN": IF A 
$<>"E" THEN N=N+1000 
279 IF A(D,E-1)=X THEN PRINT "WALL" 
280 PEN 3:PAPER 1:LOCATE 1,19:PRINT " ME 
MNONITE INDICATOR READS";:PRINT 1002SQR ( 
(Z-D) &(Z-D) )+SQR((Y-E) 2¢(Y-E))" “sPAPER 
@:PEN 1 
29@ REM ~---~---------- -- 
300 GOSUB 1210:REM PRINTOUT 
310 IF INKEYS<>"" THEN 310 
320 WS=INKEYS$: IF WS<>CHRS$(240) AND WS<>C 
HR$ (241) AND W$<>CHRS(242) AND WS<>CHRS ( 
243) AND WS$<>"H" AND WS$<>"h" THEN 320 
330 WS=UPPERS (WS) sSOUND 1, (10@+RND*100) 
340 IF WS$="H" THEN FF=-99:GOSUB 500: GOTO 


350 IF WS$<>"H" THEN T$=A$:GOSUB 1340 
360 IF AS="N" AND A(D+1,E)=X THEN 320 
370 IF AS="S" AND A(D-1,E)=X THEN 320 
380 IF AS="E" AND A(D,E+1)=X THEN 320 
390 IF AS="W" AND A(D,E-1)=X THEN 320 
400 IF AS="N" THEN D=D+1 

41@ IF AS="S" THEN D=D-1 

420 IF AS$="E" THEN E=E+1 

430 IF AS="W" THEN E=E-1i 

440 B(D,E)=46 
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450 IF Z=D AND Y=E THEN 1430 

460 IF ABS(Z-D)<3 THEN IF ABS(Y-E)<3 THE 
N LOCATE 1,19:PRINT “You are very, very 
close "“:SOUND 1.99,99,7.9,9, 


50@ REM HELP 

519 A(D,E)=42 

520 CLS 

533@ REM ’HELP” PRINTOUT 

54@ PEN 2:PRINT "You are facing ";Q0$:PRI 


550 PEN 1:PRINT TAB(13)3"North":PRINT 
560 PEN % 
570 FOR B=15 TO 1 STEP-1 
580 PRINT TAB(9); 
590 FOR C=1 TO 15 
600 IF A(B,C)=42 THEN PEN 1:PRINT CHRS(2 
24)::PEN 3:GOTO 430 
610 IF B(B,C)=46 THEN PEN 2:PRINT "."s:P 
EN 3:GOTO 630 
620 PRINT CHRS(A(B,C))s 
63@ NEXT C 
649 PRINT 
650 NEXT B 
669 PEN 1:PRINT:PRINT TAB(13):"South" 
679 M=M+5 
6B FOR DELAY=1 TO 10@0:NEXT DELAY 
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CHE TH M'RORVSURARMERAD S11) 
698 CLS 
700 GOSUB 1030 
719 A(D,E)=S 
72@ RETURN 


740 REM INITIALISE 

750 BORDER @:MODE 1: INK 9,9: INK 1,246: INK 
2,18: INK 3,46sPEN 1sPAPER ® 

760 PRINT “Please stand by while I build 
the maze" 

77@ RANDOMIZE TIME 

780 DIM A(15,15),B(15, 15) 

79® B=INT (RND&3) 

860 Z=13: Y=13 

810 IF B=1 THEN Y=3 

820 IF B=2 THEN Z=2 

8290 X=143:REM SOLID WALL ” BLOCK’ 

848 S=32:REM EMPTY PASSAGE 

850 FOR B=1 TO 15 

860 FOR C=1 TO 15 

879 A(B,C)=X 

880 IF C>1i1 AND B>1 AND C<15 AND B<15 THE 
N IF RND>O.9 THEN ACB,C)=S 

89@ NEXT C 

900 NEXT B 

910 D=2:E=2 

920 CHECKSUM=6 

93@ FOR F=1 TO 49 

949 READ B:READ C 

95@ CHECKSUM=CHECKSUM+B+C 
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9460 A(B,C)=S 
970 NEXT F 
980 IF CHECKSUM< 51100 THEN PRINT “ERROR 
IN DATA": END 
990 WINDOW £1,16,27.2,8 

1600 M=-5 

1010 AS="E"s TS="E"20S$="East":REM START 

FACING EAST 

1020 FF=-—99:RETURN 

1030 PEN 2:LOCATE 1i,1 

1040 PRINT TAB(15) s CHR$(222)5:sPEN @:PAPE 
R isPRINT “MAZE-O-SCOPE"3:PAPER @:PEN 2: 
PRINT CHRS (227) 

1050 FOR J=1 TO 7:PRINT TAB(15) sCHRS$ (127 
32:PRINT STRING$(12,32)3:sPRINT CHRS (127) 
2NEXT J 

1046 PRINT TAB(15) 3 CHRS (221) sSTRINGS$(12, 
127) 3 CHRS (220) 

10706 PEN 1 

10806 RETURN 

1090 REM -~----3-3-- 939 ron 

110@ DATA 2,2, 25392545 2p dy Zp Oy 2y7 

111@ DATA 3,754 57559 7059 bg Dy Sy Sy 4955 55 Oy 
x 

1120 DATA 7.357545 7555p 75 G9 7979798375959 
8 

1130 DATA 9,9,10,8, 10,7,10,6,10,5,10,4 
114@ DATA 10,3,11.3,12, 2513, 3, 14,3,14,2, 
7,10 

115@ DATA 6,10,5,19,4,10,3,19,2,10,2,11, 
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ian FOR YOUR AMSTRAD COTTE rr 

028 be 

116@ DATA 2,13.2,14,6,11, 6,12, 6,13, 6513, 

7,12 

1176 DATA 14,12,8,12,8,14,9.12,9,13,9,14 

,10,12 

118@ DATA 11,9, 11,10,11,11,11,12,12,9,13 

79513, 10 

1190 DATA 13,11,13,12,13,13,13,4,14,14,1 

®,9 

1200 REM ---- nnn rrr nnn 

1216 IF N=0® THEN P=8 

1220 IF AS="H" THEN AS=TS 

1230 IF AS="N" AND N=1 OR AS$="S" AND Net 

@ OR AS="E*° AND N=160 OR AS="W" AND N=1@ 

90 THEN PeS 

1240 IF AS="N" AND N=101 OR AS="E" AND N 

=110 OR AS="W" AND N=1001 THEN P=1 

1250 IF AS="N" AND N=10@ OR AS="S" AND N 

=1000 OR AS="E" AND N=10 OR AS="W" AND N 

=1 THEN P=2 

1260 IF AS="N" AND N=1000 OR AS="S" AND 

N=100 OR AS="E* AND N=1 OR AS="W" AND N= 

10 THEN P=3 

1270 IF (AS="N" OR AS="S") AND N=1100 OR 
(AS="E" OR AS="W") AND N=11 THEN P=4 

128@ IF AS="N" AND N=1101 OR AS="S" AND 

N=11196 OR AS="E"* AND N=111 OR AS="W" AND 
N=1011 THEN P=6 

1290 IF AGS="N" AND N=10061 OR AS="S* AND 

N=11@ OR AS="E" AND N=101 OR AS="W" AND 
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N=1010 THEN P=7 

130@ ORIGIN 250,278: MOVE 0,9 

1316 IF FF=P THEN RETURN 

1320 FF=P 

1330 PAPER £1,3:sCLS £1, 

1340 ON P GOSUB 1500, 1550, 1690, 1450, 1706 
31752, 1800, 1860 

L350 REM ‘s2s=s230s===s24sS=S2== 

13660 IF WS=CHRS (240) OR AS="H" THEN AS=T 
: 

1370 IF WS=CHRS (241) AND TS="N" OR WS$=CH 
R#(243) AND TS="E" OR WS=CHR$ (242) AND T 
="W" THEN AS=“S" 

1380 IF WS=CHR$(241) AND T$="S" OR WS=CH 
R$(243) AND TS="W" OR WS=CHRS(242) AND T 
$="E" THEN AS="N" 

13960 IF WS=CHRS (242) AND TS="N" OR WS$=CH 
R$(242) AND TS="S" OR WS=CHRS(241) AND T 
$="W" THEN AS="E" 

140@ IF WS=CHRS$(242) AND TS$="N" OR WS=CH 
R$ (243) AND TS="S" OR WSE=CHRS (241) AND T 
$="E" THEN AS="W" 

1410 RETURN 

1420 (REM ======<<<<=-===+-= 

1430 REM END OF GAME 

1440 FOR J=1 TO 20 

145@ PRINT £1."YOU FOUND ITIN JUST"M"MOV 
ES..e. = 

1466 FOR H=1 TO 100:NEXT H 


1470 SOUND 5, RND*90, RND*t9O 
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MYSTERIOUS ADVENTURES 
FOR YOUR AMSTRAD 


LOCATE 1,22:END 


REM P=1 
GOSUB 191@:REM 
GOSUB 1940:REM 
GOSUB 2000: REM 
RETURN 
REM P=2 
GOSUB 19190:REM 
GOSUB 2070; REM 
GOSUB 2000:REM 
RETURN 
REM P=e3 
GOSUB 2130:REM 
GOSUB 207@:REM 
GOSUB 2190:REM 
RETURN 
REM P=4 
GOSUB 2130: REM 
GOSUB 2070:REM 
GOSUB 2000:REM 
RETURN 
REM P=5 
GOSUB 1919:REM 
GNSUB 1940: REM 
GOSUB 2190: REM 
RETURN 
REM P=6 
GOSUB 21390: REM 
GOSUB 194@:REM 


LEFT CLOSED 
FRONT OPEN 
RIGHT OPEN 


LEFT CLOSED 
FRONT CLOSED 
RIGHT OPEN 


LEFT OPEN 
FRONT CLOSEN 
RIGHT CLOSED 


LEFT OPEN 
FRONT CLOSED 
RIGHT OPEN 


LEFT CLOSED 
FRONT OPEN 
RIGHT CLOSED 


LEFT OPEN 
FRONT OPEN 
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1780 GOSUB 2000@:REM RIGHT OPEN 

1790 RETURN 

180@ REM P=7 

1810 GOSUB 2130:REN LEFT OPEN 

1826 GOSUB 194@:REM FRONT OPEN 

1826 GOSUB 219@:REM RIGHT CLOSED 

1840 RETURN 

185@ RETURN 

1840 REM P=8 

1876 GOSUB 191®:REM LEFT CLOSED 

188 GOSUB 2070:REM FRONT CLOSED 

1896 GOSUB 2190:REM RIGHT CLOSED 

1900 RETURN 

1910 REM LEFT CLOSED 

1920 DRAW 0,110: DRAW 50,77:MOVE 50, 34:DR 

AW 0,@ 

1930 RETURN 

1940 REM FRONT OPEN 

1950 MOVE 50,34:DRAW 73,50:DRAW 73,62 

1946@ MOVE 73,50:DRAW 93,50: DRAW 953,62 

1970 DRAW 72,62:DRAW 5®,77:MOVE 128,26 

1980 DRAW 93,50:DRAW 93.462:DRAW 128,84 

1990 RETURN 

200@ REM RIGHT OPEN 

2610 MOVE 117.77 

2020 DRAW 128.84:DRAW 128,246: DRAW 150,26 

2030 DRAW 150,16:DRAW 164,@:DRAW 166,110 

2040 DRAW 150,1900:DRAW 150,19:DRAW 150,8 

4 

205@ DRAW 128.,.B84:MOVE 128.26:DRAW 117,34 
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2060 RETURN 

2670 REM FRONT CLOSED 

2080 MOVE 50,77 

207@ DRAW 117,77: DRAW 117,34 

2166 DRAW 56,34:DRAW 50,77 

2116 MOVE 49,24:DRAW 59,34 

2120 RETURN 

21350 REM LEFT OPEN 

2140 DRAW 16,10:DRAW 16,100:DRAW 0,110 
2150 DRAW 16,10@:DRAW 16,84:DRAW 40,84 
2140 DRAW 40,26:DRAW 14,26:DRAW 46,26 
2170 DRAW 50,54:MOVE 50,77:DRAW 40,84 
2180 RETURN 

2190 REM RIGHT CLOSED 

2200 MOVE 117,34 

2219 DRAW 166,90: DRAW 166,110:DRAW 117,77 
2220 RETURN 
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INTO THE 
UNKNOWN 


The title of this adventure is not far from the truth, 
because you never know - from run to mun of the 
program -— just what you will encounter next. 

Your clever Amstrad chooses 40 locations from its 
database of 100, and then constructs a map around the 
chosen locations. The computer then randomly 
distributes the objects and hazards throughout the 
adventure environment. This ensures that the game will 
be different each time you tackle it. 

Your task is to solve the adventure by finding ten 
pieces of treasure, at the same time making your way 
through the countryside until you reach the Citadel. 
This is where safety lies. 

You control your direction with the letters N, S, E and 
W, and use T to take an object. There are other 
commands, but it is up to you to discover them! 
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1@ REM*EXKX INTO THE UNKNOWNS 424% 

2@ MODE 1:CLS 

36 INK 2,1,26 

4@ PRINT "™ INTO THE UNKNOWN” 
5® PRINTsPRINT 

6@ GOSUB 1462@:GOSUB 7190 

70 CLS 

8@ K=10:ST=90 

9@ REMSKXKMAIN LOOPXXK*X 

100 ST=ST-@.1:IF ST<® THEN PRINT “YOU? RE 
FINISHED! “: END 

11@ BORDER INT (RND&26) 

120 SOUND 2, (14%40)+4@ 

13@ PRINT=PRINT“ANNNNNANNNANANANNANNANANNA 
ANASNANANNANNANAN" 

14@ PRINT “YOU ARE “3RS(P):PRINT 

15@ IF K<8 THEN 200 

14@ PRINT “EXITS ARE: “::IF V(P,1)>0 THE 
N PRINT “NORTH: “5 

170 IF V(P,2)>@ THEN PRINT “SOUTH: "3 





EHH Hh merormzmnmown HEE 


180 IF V(P,3)>@ THEN PRINT “EASTs “3 

199 IF V(P,4)>® THEN PRINT “WEST" 

200 PRINT: PRINT 

21® FOR T=1 TO 20 

220 IF B(T.1)=P THEN PRINT BS(T) = PRINT 

230 NEXT 

240 DV=e 

256 FOR T=1 TO 10:IF M(T,1)=P THEN PEN 2 
sPRINT M$(T)53" ATTACKS...":sDV=1:5PEN 1 

260 NEXT 

27@ PRINTsPRINT 

280 INPUT PS 

290 IF DV=1 THEN GOTO 380 

300 IF (P#="S" OR PS="E") AND (RS (P)="NE 
XT TO A SNAKE-INFESTED PIT" OR RS(P)="NE 
AR A CLIFF" OR RS(P)="NEAR A CLIFF EDGE” 
OR RS$(P)="IN THE CASTLE TURRET" OR RS(P 
2="ALONG THE BATTLEMENTS") THEN PRINT “Y 
QU FALL... THAT’S THE END”:END 

319 IF PS="N" AND RIGHTS (RS (P), 4) ="CAVE" 
THEN PRINT “MADNESS, GOING NORTH TAKES 
YOU FURTHER INTO THE COLD...YOU FREEZE 
TO DEATH": END 

320 IF P%="H" OR PS="J" AND ST>20@ THEN S 
T=ST-18:PRINT “YOU? VE JUMPED TO ANOTHER 
PLACE”: PRINT: PP=Ps:P=INT (RND#38) +1:GOTO 6 
20 

330 IF PS="N" AND V(P,1)2<>0 THEN P=V(P, 1 
¥3GOTO 620 

340 IF P$="S" AND V(P,2)<>0 THEN P=V(P,2 
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3:GOTO 420 

350 IF P$=“E" AND V(P,3)<>@ THEN P=V(P,3 
»:GOTO 462@ 

360 IF PS="W" AND V(P,4)<>0 THEN P=V(P, 4 
2sGOTO 4620 

370 IF DV<>1 THEN GOTO 5ee@ 

38@ REMS2£8F IGHT OR RUNKSE% 

39@ IF PS<>"F" AND PS<>"R" THEN PRINT "Y 
OU CAN ONLY FIGHT OR RUN IN THIS S 
ITUATION’: ST=ST-3:GOTO 270 

400 IF P$="F" THEN 440 

410 IF P$="R" AND RND<®@.36 THEN PRINT “Y 
OU MUST STAY AND FIGHT”":ST=ST-7:GOTO 440 
420 PRINT "OK. YOU HAVE RUN AWAY": ST=ST- 
33PP=P:P=INT (RND%36)+1: IF P=PP THEN P=P+ 
1 

430 GOTO 90 

440 REMSREXXFIGHT S2a4a% 

450 IF RND<®.05 THEN PRINT “YOU ARE BADL 
Y WOUNDED”: ST=ST- CINT (ST/3) ) s PRINT 

460 FOR T=1 TO 10: IF M(T,1)=P THEN FY=Ts 
T=10 

47@ NEXT3sST=ST-— CINT (M(FV, 2) 81.5) )3s IF ST> 
@ THEN PRINT "YOU ARE THE VICTOR":M(FV, 1 
2=5@:SOUND 1,70,4@:GOTO 90 

480 PRINT “YQU ARE EXHAUSTED...":GOSUB 1 
7BOzsPRINT “YOU ARE DYING FAST...":GOSUB 
178@:PRINT "YOU ARE DEAD":END 

490 REMS#ERXSTRENGTHSER ER 


50@ OC=@:FOR T=1 TO 10:IF B(T,1)=@ THEN 
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OCc=0C+1 

S1Q@ NEXT 

520 IF OC>S AND (PS$="STRENGTH” OR LEFTS ( 
P$,2)="SC") THEN PRINT:PRINT “STRENGTH I 
S “3:ST:GO0TO 90 

530 REMKEXKAXZTAKER SEK 

540 OT=0:FOR T=1 TO 20 

550 IF B(T,1)=P AND P$="T" THEN B(T,1)=0 
:O0T=T: T=10 

54@ NEXT 

570 IF OT=0 AND PS="T" THEN PRINT “NOTHI 
NG TO TAKE":GOTO 990 

580 IF P$="T" AND BC(OT,2)=1 THEN PRINT " 
YOU HAVE TAKEN THE OBJECT/S": PRINT: GOTO 
600 

590 IF P$="T* AND B(OT,2)=2 THEN PRINT “ 
MORE TREASURE TO YOUR COLLECTION": PRINT 
600 IF PS="T" THEN 620 

410 PRINTsPRINT “YOU CANNOT DO THAT!":PR 
INTsGOTO 90 

620 PRINTSPRINT "O.K."“:sSOUND 1, INT (RND&S3 
50) +50 

63@ K=@ 

640 FOR T=11 TO 20 

650 IF B(T,1)<>@ THEN K=K+1 

660 NEXT T 

670 IF K=0 AND P=4® THEN GOTO 1700 

680 PRINT 

690 PRINT “ “sK;"TREASURES STILL TO COL 


LECT" 
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708 
710 
720 
72® 
740 
750 
76 
77® 
780 
790 
8a0 
812 
820 
Bre 
8490 
859 
860 
870 
B8e 
890 


GOTO 90 
REM£sxX INITIALISATIONS&% 

DIM V(4@, 4) 

RANDOMIZE TIME 

FOR T=1 TO 40 

V(T, 1) =0 

V(T,2)=@ 

V(T,3)=@ 

V(T,4)=0 

FOR Z=1 TO INT(RNDS4) +1 

A=INT (RND#4) +4 

IF A=T THEN 8@0 

V(T, A) =INT (RND&39) +1 

NEXT Z 

NEXT T 

P=1 

DIM R#(40):DIM SBS (20) 

RESTORE 

FOR T=1 TO 20:READ SBS(T):NEXT 

DATA IN THE GARDEN OF AN OLD HOUSE, I 


N AN OLD HOUSE,IN A STRANGE CAVE, NESTLIN 
G IN A HOLLOW IN THE GROUND 


900 


DATA IN A QUIET CLEARING,NEXT TO AS 


NAKE-INFESTED PIT.STANDING BY A HIGH FEN 
CE,IN A SMALL ROOM 


910 


AGE, 


920 


DATA IN A DIRTY BACK STREET.IN A GAR 
IN A BARN, IN THE CASTLE TURRET 
DATA BY AN ORCHARD, IN THE MARKET PLA 


CE,BY A MARKET STALL,ZIN A QUIET STREET 


920 


DATA IN A SMALL CHAMBER, BY A RED-BRI 
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CKED WALL,IN THE MUSIC ROON,IN A DARK TU 
NNEL 
94@ TL=0 
950 FOR T=1 TO 8®@ 
960 IF RND<®.5 AND TL<4@ THEN TL=TL+1:RE 
AD RSCINT (C(T+1) /2) > 
970 NEXT 
98¢@ FOR T=1 TO 4@:1F RS$(T)="" THEN RS(T) 
=SBS (INT (RND%20) +1) 
990 NEXT T 
1060 R$ (40)="IN THE CITADEL- A PLACE OF 
SANCTUARY” 
1016 DATA IN A LAKE,BY A CLEAR LAGOON, ON 
A SANDY BEACH,ON A PEBBLE BEACH 
1620 DATA IN A FAST-FLOWING RIVER, IN THE 
CALM SEA,ON A CLIFF EDGE,NEAR A CLIFF 
1030 DATA IN A CLEARING, BY THE STREAN,CL 
QSE TO THE FOREST, IN THE FOREST 
104@ DATA IN A WOOD, IN THE MIDDLE OF PAS 
TURE, SURROUNDED BY GREEN FIELDS 
165@ DATA IN THE DESERT, WITHIN SIGHT 
OF AN QASIS,ON A HILLTOP,BY SOME CROSSRO 
ADS 
1060 DATA ALONG A PATHWAY.NEXT TO A PATH 
»BY A BEATEN TRACK,ON SOME WASTELAND 
1070 DATA IN A WOQDED COPSE.NEAR A WATER 
FALL, IN SOME BEAUTIFUL ORNAMENTAL GARDEN 
S 
1@8@ DATA NEXT TQ A FLOWERED,ON A PLATEA 
OF GRASSLAND, SURROUNDED BY WEENS 
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1090 DATA IN A LARGE CAVERN, IN THE DEPTH 

S OF AN ICY CAVE,IN A CAVE FILLED WITH R 

OCKY OUTCROPS 

1100 DATA AT A HILL’S BASE,UP TO YOUR KN 
EES IN MUD,CLOSE TO A RIVER BANK 

1116 DATA ON A ROCKY PLAIN, IN A DESOLATE 
AREA, IN A COLD AND FLAT SURROUND.ON A G 

RASSLESS BANK, IN A SMALL DEPRESSION 

1120 DATA BY A CASTLE WALL, IN THE CASTL 

£ GROUNDS, IN THE GIANT HALLWAY, IN THE KI 

TCHENS 

1130 DATA IN THE SPLENDED MASTER BEDROOM 
93 IN THE STUDY LINED WITH BOOKS 

1140 DATA WITHIN THE MAGNIFICENT GARDENS 
»IN A DANK STORE ROOM, IN A APARSE RECEPT 
ION ROOM 

1150 DATA IN A PASSAGEWAY, ALONG A LORRID 

OR, BY A SMALL WELL,IN A PAVED QUADRANGLE 
1166 DATA IN THE MAIN TOWER,ALONG THE BA 

TTLEMENTS, HIDING IN THE TORTIJRE CHAMBER 
1170 DATA ON THE DRAW BRIDGE,NEAR THE MO 

AT, IN THE MOAT, IN THE DUNGEONS 

1180 DATA IN THE DRAWING ROOM,IN A STUDI 

O WITH PAINTINGS ON THE WALLS, IN AN EMPT 
Y BEDROOM 

1190 DATA IN A TINY HALLWAY, IN THE LIBRA 

RY,QUT ON THE PORCH 

1200 DATA IN A REMOTE HAMLET, IN A SMALL 

UNTIDY HUT, IN A PIG STY,IN A SHEEP PEN 
1210 DATA IN THE SHEEP DIP UGH!.BY THE H 
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SELLE srormmowwn TERT 
EN HOUSE. IN THE HEN HOUSE,IN THE FARNYAR 
D 
122@ DATA BY A SIGN POST,AT SOME CROSSRO 
ADS, IN A COACH HOUSE,SURROUNDED BY HAYST 
ACKS 
123@ DATA NEAR THE BOILER ROOM, IN THE RE 
GENT BATHROOM 
1246 RESTORE 1310 
125@ DIM BS(20),B(20,2) 
1266 FOR T=1 TO 20 
1270 READ BS(T) 
1286 B(T,1)=INT (RND&38) +1 
1290 IF T<11 THEN B(T,2)=1 ELSE B(T,2)=2 
1300 NEXT T 
1310 DATA "A ROWING BOAT”."A GARDENING F 
ORK", “SOME MATCHES"."“A KNIFE"."“A SPADE" 
132@ DATA “A COPY OF THE COUNTRY CODE",”" 
A GLASS OF WATER", “SOME ROPE" 
133@ DATA “A PAIR QF BINOCULARS", “A MAGN 
IFYING GLASS" 
134@ DATA A GOLD PENDANT,A 4@ CARAT DIAM 
OND,A LARGE RUBY.A PLATINUM BANGLE,A JEW 
Et. ENCRUSTED HEADBAND 
135@ DATA A BAG OF COINS,A KRUGERAND, AN 
OLD MASTER,A SAPPHIRE. THE MAP TO CAPTAIN 
KIDD’S TREASURE 
1360 DIM M$ (10) .M(10, 2) , DMS(20) ,DM (20, 2) 
1370 FOR T=1 TO 2@:sREAD DM$(T):sREAD DM(T 
21)sREAD DM(T, 2) =sNEXT3 DM (17,1) =INT (RNDESS 
8B) +1 
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HHH RGRVOUR AMGEN HTH 
1380 FOR T=@ TO 9:IF RND>@.@5 THEN K=1@ 
ELSE K=1 

1390 M$ (T)=DM$ (K+T) 2M CT, 1) =DM(K4T, 1) 2M(T 
32) =DM(K+T, 2) 

1400 NEXT T 


1410 DATA A BLACK KNIGHT, 10,10 
1420 DATA A VENOMOUS SNAKE, 4,5 
143@ DATA A GIANT BEAR, 20,12 

144@ DATA A VIOLENT SERF,2,2 

1456 DATA A DRUNKEN SWORDSMAN, 14, 4 
144@ DATA A SWORDSMAN, 32,8 

147@ DATA A PACK OF WOLVES, 37.7 
148@ DATA A RABID DOG.21,5 

149@ DATA A SCORPION, 7,7 

150@ DATA A GUARD DOG,9,5 

1510 DATA A GREEDY TROLL, 24,8 


152@ DATA THE WIZARD OF ZOR,. 40,15 

1530 DATA AN OLD WARLOCK, 34.9 

15490 DATA THE MIGHTY WARRIOR OF TROTH, 39 
915 

1550 DATA A MAD VIKING.15,12 

1560 DATA THE BARON OUT HUNTING, 28,8 
157@ DATA THE MADBEAST,@,13 

1586 DATA A PLAGUE OF GIANT RATS,.24,6 
159@ DATA A BAND OF THIEVES, 31,11 

1600 DATA A GROUP OF KILLER BATS,15.5 
1610 RETURN 

16260 REM*&2xXxXINSTRUCTIONS&EXEXK 

1630 PRINT " You must attempt to coll 


ect the ten treasures and take them to t 
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HHH, 


|he Citadel where you will be safe from 








the dangers that abound elsewhere.“ 

1640 PRINT:PRINT ” You will come acro 
SsS a number of ather objects which ma 
y be of help in warding off the malevo 
lent creatures" 

165@ PRINTsPRINT " You move by enteri 
ng N,S,E or W. Youtake an abject by typi 
ng T and you can either run (R) or figh 
t (F) when confronted with a crea 
ture." 

1660 PRINTSPRINT: PRINT: PRINT TAB(15)3 "G0 
OD LUCK." 

1670 FOR T=1 TO 2@@@3 NEXT 

16B0 SOUND 1,180 

169@ RETURN 

1700 REM2£x*x*xKSUCCESSERER KS 

1710 INK 1,90 

1720 MODE @sCLSsLOCATE 1,12sPRINT “WELL 

DONE YOU DID IT" 

1730 FOR T=1 TO 26 

1740 BORDER Ts INK 9@,T 

175@ SOUND 1,600-(T*2@)sSOUND 2,601-(T%2 
@)sSOUND 4,599-(T%2@) 

1740 NEXT 

1779 LOCATE 1,24:END 

1780 REMXX*SPAIUSEKS XH 

1790 FOR T=1 TO 3@@@:sNEXT 

1800 RETURN 
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(TEE vem 101117 
GOTHAM 
RUNNER 


The world as we know it has ended. Despite the years 
of desperate talking, one day the big bombs started 
falling. In the aftermath, there were no victors, only 
survivors. 

You are one of the survivors. Aided by a mutant pit 
pony you have befriended, you live a precarious life in 
the ruins of New York City. In Gotham Runner, you and 
your pony are trying to cross the 100-mile width of the 
city. A rabid pack of mutant dogs has got your scent, 
and is relentlessly pursuing you. 

As you can tell from this morbid description, you 
have a mass of problems - and there are many more of 
them in store, as you'll discover when you run the 
adventure. There are several incidents which will occur 
from time to time (many of them will not occur during 
any particular run) and no incident will happen more 
than once in a run. 

It is simple to play, as you only have to select an 
action from those presented to you on the screen. 
When you start minning the program, you'll see 
something like this on your monitor: 





FETE, commonnoman “FEED 


NUMBER OF DAYS ELAPSED: 1 

YOU HAVE TRAVELLED 32 MILES 

THE DOG PACK HAS COVERED 8 MILES 
IT IS 24 MILES BEHIND YOU 


ENTER YOUR COMMAND: 
1 - EAT FROM YOUR SUPPLIES 
2- PROCEED CAUTIOUSLY 
3-— MAKE A RUN FOR IT 
4— TAKE A REST STOP 


Despite the simplicity, however, you'll find it 
extremely difficult to get through the city, and you'll 
have to play it many many times to work out the 
optimum strategy. 

When you're ready to mn across the ruins, enter the 
following listing: 


seni 


gs 





TREEE “vena” ETE 
16 REM GOTHAM RUNNER 
26 GOSUB 6303REM INITIALISE 
36 M=M+1 
40 B=B-1 
5S® IF B>@ THEN 119 
460 PRINT "YOU SHOULD HAVE EATEN. YOU SLU 
MP DOWN AND DIE..." 
76 PRINTsPRINT “THE DOG PACK SNIFFS THE 
AIR... AND ADVANCES RAPIDLY..." 
8@ GOSUB 1530:END 
90 REM ---~--~~-------------- 
100 REM MAIN CYCLE 
11 CLS 
120 PRINT 
130 PRINT “NUMBER OF DAYS ELAPSED: "M 
140 PRINTsPRINT “YOU HAVE TRAVELLED®T"ML 
ES*:PRINT 
150 IF N=@ THEN 1990 
160 IF T-N<1 THEN PRINT "THE DOG PACK HA 
S GOT YOU":GOSUB 1530: END 
17@ PRINT "THE DOG PACK HAS COVERED"N"MI 
LES" 
186 PRINT:sPRINT “IT IS"T-N"MILES BEHIND 
you" 
190 PRINT: PRINT 
200 IF RND>®.8 THEN GOSUB 710 
21@ IF D<2 THEN PRINT "YOU SHOULD LOOK F 
OR NEW FOOD SUPPLIES": PRINT 
22@ PRINT: IF B<2 THEN PRINT “YOU ARE GET 
TING VERY HUNGRY...":PRINT 
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230 
240 
200 
268 
270 


WHILE INKEYS<>"":WEND 


PRINT 
PRINT “ENTER YOUR 
PRINT 

PRINT TAB(S8);71 


LIES" 


280 
299 
300 
319 


379 


PRINT TAB(B); "2 


PRINT TAB(8)5°3 
PRINT TAB(8) 5; "4 


COMMAND: ” 


EAT FROM YOUR SUPP 


PROCEED CAUTIOUSLY 


MAKE A RUN FOR IT" 
TAKE A REST STOP" 


AS=INKEYS: WHILE AS<"1" OR AS>"4":GOT 
QO 310: WEND 


Z=VAL (AS) 
PRINT 


ON Z GOTO 370,410, 


PRINT 


REM --~----------- 
IF D=@ THEN PRINT: 


FOOD LEFT":sGOTO 250 


380 
399 
400 
410 
420 
430 
440 
450 
460 
470 
480 


B=5 

D=D-1 

GOTO 5ee@ 

C=C+2 

T=T+4+INT (RNDZS3) 
GOTO 500 

C=C+3 
T=T+6+ INT (RND&ZS) 


GOTO See 
C=0 
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440, 480 


PRINT "YOU HAVE NO 


1 MYSTERIOUS ADVENTURES Tit fetes 
j___ FOR YOURAMSTRAD Coo 


490 PRINT “YOU AND YOUR MUTANT PIT PONY 
SPEND A FEW FITFUL HOURS IN SLEEP.. 


50@ IF C>9? THEN PRINT “YOUR PONY DIES. Y 

QU SHOULD HAVE RESTED IT MORE."s 

GOSUB 153¢@:END 

510 IF INT (RND%12)<>6 THEN S50 

520 PRINT:PRINT “YOU FIND A SUPPLY OF 
UNCONTAMINATED FOOD!" 

530 C=C-5 

549 D=3 

55@ N=N+5+INT (RND&4) 

S60 IF T<100 THEN 590 

57® PRINT “YOU HAVE TRAVERSED THE RUINED 

CITY AND ESCAPED!":GOSUB 1530 

S8@ PRINT "WELL DONE!":GOSUB 15350: END 

S90 PRINT “9 rr rrr rrr nn 

600 GOSUB 1530 

610 GOTO 3@ 

620 REM -~----------------~--— 





HHH ry GOTHAM RUNNER Ste 
dit toi i ae! Cot 


6358 REM INITIALISATION 

640 MODE 1: INK 1,24: INK 2,18: INK 3,24 
650® RANDOMIZE TIME 

660 T=INT (RND£&20) +21 

679 M=0:C=0:N=98 

480 K=0: B=5:D=3 

6980 RETURN 


71@ REM INCIDENTS 

720 K=K+1 

720 X=INT (RNDS6) +1 

740 IF K=6 THEN RETURN 

750 IF H(X)=1 THEN K=K+4+1:GOTN 730 

76@ H(X)=1 

77@ ON X GNSUB 830, 910, 970, 1040, 1150, 126 


780 GOSUB 1530e 
7990 B=B-INT (RND*£2) 
800 PRINT 
810 RETURN 
B20 REN <==<SS=-=2S25esS—S5—— 
830 REM MUTANT HUMAN 
840 PRINT “AS YOU STARE IN HORROR, A HUM 
AN BEING" 
856 PRINT “DRESSED IN ROTTEN RAGS STUMBL 
ES TOWARDS” 
860 PRINT “YOU...-AND EMBRACES YOU!"3;:60S5 
UB 1530 
870 PRINT “" HE IS LETHALLY”:REM NOTE 
SPACE WITHIN QUOTE MARKS AT START 
59 


HEED ™poevourabomeaes 1 {{[tETT 

880 PRINT “CHARGED WITH RADIATION..." 

890 RETURN 

TOO(. REM = —<S<=2 545244 =Sa= 

910 REM STORM 

920 PRINT “A MASSIVE WIND STORM SWEEPS D 

QWN THE” 

930 PRINT “AVENUE..YOU AND YOUR PONY DAS 

H TO" 

94 PRINT “ONE SIDE IN A VAIN BID TO FIN 

D SHELTER 

950 RETURN 

TO0-(RE ee SaaS Seer 

97@ REM BURIED 

980 PRINT “THE RUBBLE SHIFTS BENEATH YOU 

R FEET..."“sGOSUB 15350 

790 PRINT “YOU FIND YOURSELF SLIPPING DO 

WN...":GOSUB 1550 

1006 PRINT "AND SLOWLY DRAG YOURSELF, GR 

EATLY™ 

1016 PRINT “WEAKENED, BACK TO STREET LEV 

EL..." 

1620 RETURN 

L030 REM. SSS SSeS SSS 

1046 REM SNAKE 

1050 PRINT "YOU HEAR THE DREADFUL SOUND 

OF A":GOSUB 153@ 

106@ PRINT “RATTLESNAKE...IT STRIKES...” 

3;:GOSUB 15306 

19676 PRINT “BUT AT THE" 

1086 PRINT “SAME TIME YOU SWING OUT AT I 
60 





T WITH" 

1096 PRINT TAB(B8): "YOUR CLUB...":zGOSUB tf 
bones) 

1106 PRINT: PRINT “IN THE CONFUSION, YOU 
DO NOT KNOW IF" 

1119 PRINT "IT HAS BITTEN YOU, OR WHETHE 
R you HIT” 

1126 PRINT "IT BEFORE IT COULD STRIKE... 
1130 RETURN 

1140 REM -------------------- 

115@ REM PHOSPHORUS ATTACK 

11460 PRINT “YOU HEAR THE DREADED SCREAMNI 
NG OF NINE“sGOSUB 1530 

1176 PRINT “CRAZED MEMBERS OF THE PHOSPH 
OR GANG..."“sGOSUB 1530 

1180 PRINT "THEY ATTACK..."3:GOSUB 1530 
119@ PRINT "AND AS YOU WHEEL AWAY ON” 
1206 PRINT "YOUR LOYAL PIT PONY, THEY TH 
ROW A":GOSUB 15390 











HT, “Revo EEE 


121@ PRINT “POWDERED WHITE PHOSPHORUS BO 
MB AT YOU!":GOSUB 1530 

122@ PRINT “IT EXPLODES WITH A FIERCE WH 
ITE GLOW, “:GOSUB 1530 

123@ PRINT “AND FOR A MOMENT OR TWO YOU 

ARE BLINDED" 

1240 RETURN 

1250 REM ---------—~--~-------- 

126@ REM MUTANT PUMA 

1276 PRINT “YOU HEAR A SNARL BEHIND YOU, 
AND SEE"“=:GOSUB 1530 

1280 PRINT “A BLACK MUTANT PUMA READY TO 
LEAP..."s:GOSUB 1530 

129@ PRINT “YOU DIG YOUR HEELS INTO YOUR 
PONY’S* 

1309 PRINT “SIDES..."3:GOSUB 1530 

1310 PRINT “AND ATTEMPT TO RUN AWAY FROM 
1320 PRINT “IT..."3;:GOSUB 1530 

1330 PRINT “WILL YOU SUCCEED?" 

1340 GOSUB 1530:GOSUB 1530 

1350 IF RND>@.7 THEN 1380 

1360 PRINT TAB(4);"YOU SEEM TO HAVE REAC 

HED SAFETY!" 

1370 RETURN 

1380 PRINT “THE PUMA LEAPS..."3:sGOSUB 15 

5O 

1390 PRINT "AND YOUR PONY GOES" 

1400 PRINT “DOWN..."3:GOSUB 1530 
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CHEE, commemmoen HEED 


141@ PRINT "THE PUMA’S JAWS TIGHTEN AROU 
ND" 

1420 PRINT “YOUR LEGS";:GOSUB 1530 

1436 PRINT “, AS YOU KICK WILDLY...":GOS 
UB 1530 

14460 PRINT:PRINT 


1450 
1460 
147@ 
1480 
1490 
1500 
1510 
1520 
1520 
154@ 
1550 
154@ 
1570 
1580 
1598 
1600 
1614 
1620 


PRINT “YOU "3;:GOSUB 1530 
PRINT "KNOW “::GOSUB 1530 
PRINT “THIS “3:GOSUB 153¢ 
PRINT “IS “s:GOSUB 1530 
PRINT “THE “s:GOSUB 1530 
PRINT "END “;:GOSUB 1530 
PRINT 

END 

REM DELAY 

NOW=T IME 

WHILE TIME-NOW< 490: WEND 
FOR J=@00 TO 2 STEP -(RND*20+47) 
SOUND 2,1000-J,7 

IF RND>@.4 THEN 1600 
SOUND 5,3.7 

NEXT J 

PEN CINT(RND&3) +1) 

RETURN 
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| GOLDEN 
NUGGET 


We've saved the best until last. This first-rate 
adventure, from the creative mind of Brian Beesley, is 
set in the days of the Californian Gold Rush. 

You direct your character around the town of 
Deadwood, and throughout the badlands around town, 
looking for gold. Most commands can be entered in the 
“verb noun” format. 

You might think it mean of us, but we're not going to 
give you any further help. Just play the game and watch 
it unfold. Brian has used some excellent programming 
techniques to provide you with an extremely tricky 
adventure. We can't see you solving it for a long time. 
However, we'll give you a few hints in the form of the 
world’s worst poem. Don’t read it if you want to try 
and solve the adventure unaided. 


Unequipped, no gold you'll glean, 
Hazards avoided, before it is seen. 

The mule needs care, as does the river, 
Indians and bears may bless a giver. 


With help like that, you’re probably no better off than 
you were at the beginning... 





CHEE HEER —coupenvecerHEEEEEEEEP 


10 
20 
30 


90 


REMESSESELAKTATAAKAKA KATA 
REMSX4*4GOLDEN NUGGETS 5443 2% 
REM***XBEESLEY/GIFFORDSSEREX 
REMSESKAEREKAASAAKAASAKAAK 
L=1:sM0=100 

GOSUB 347@:GOSUB 266@ 

N=@ 

MODE 1:CLS 

PRINT ” PRESS ANY KEY TO START" 


106 N=N+1 

110 IF INKEYS=""" THEN 109 

120 RANDOMIZE N 

130 IF INT(RND&2)=1 THEN OB(17,1)=-1:L0( 


16, 


5) =0:GR=1 


140 CLS:PRINT “I?m "3LO$(L):PRINT STRING 
$(40,"—"); 
15@ OK=0:GOSUB 2470:PRINT STRINGS (4Q, "—" 


ds: 
160 
17@ 


GOTO 18a 
PRINT “I don’t understand ":Q$ 
REM 


180 REMESS*SSCOMMAND COLLECTIONS4X4% 
190 REN 
200 DC=0:0C=0: INPUT “What Now "sQ$: IF QS 


Pr 


220 


THEN 200 

210 SP=INSTR(1,Q@3," “)sIF SP THEN 230 
GOTO 1742 
V$=LEFTS (0%, SP—1) s NS=MIDS$ (Q$, SP+1) 


250 
240 


IF (V$<>"60" AND LEN(V$)<3) OR LENIN 


$)<3 THEN 160 
25@ FOR VC=1 TO 16:IF INSTR(1,VBS(VC),V$ 
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CHET MPORYSURARGABS 1] {UH HTE 
) THEN 270 
260 NEXT VCsPRINT "I don’t understand "; 
V$:GOTO 180 
270 FOR DC=1 TO 4: IF INSTR(1,1ID&(DC) NS) 
THEN 3192 
280 NEXT DCsFOR OC=1 TO 46:1IF INSTR(1,0B 
$(0C),N%) THEN 310 
290 NEXT OCsPRINT "I don’t understand "“:; 
N&:GOTO 180 
300 REM 
31@ REMSX£ERVERB SUBROUTINE KS£3% 
320 REM 
330 ON VC GOSUB 370, 450, 45@, 726, B40, 1000 
» 1148, 1196, 12460, 1310, 1410, 1480, 1530, 1540 
5» 14620 
340 IF VC>15 THEN ON VC-15 GOSUB 1690,10 
00,1970 
350 IF OK THEN 140 
360 GOTO 180 
370 REMEXERKRGOKEEKEI EX 
380 IF DC>4 THEN PRINT “I go by the sun 
and the stars“*:RETURN 
390 IF LOC(L,DC)=-1 THEN PRINT "Nothing t 
hat way so I came back"sRETURN 
400 IF LO(L,DC)=0 THEN PRINT "I can’t go 
that way":RETURN 
410 IF LOC(LO(L,DC),5)=0@ THEN 440 
420 CM=0:GOSUB 2010: IF CM THEN 440 
430 IF NOT CM THEN RETURN 
44@ L=LO(L, DC) sOK=1:sRETURN 
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FETE, coumennoooer SEER 

450 REMKES44RBUY/GETESEKEES 

460 IF VC=3 AND LEFTS(NS,3)="WAT" THEN 6 

20 

47® GOTO 514 

480 IF LD=4 AND OC<>13 THEN PRINT.,,"I c 

an’t carry anymore” ELSE 560 

490 IF VC=2 THEN PRINT "Da you think I’m 
a mule" 

50@ RETURN 

519 IF OB(OC,2)<® OR OC=18 THEN PRINT “T 

hat’s not paossible”:sRETURN 

$20 IF VC=2 AND (0B(0C,1)=@ OR OB(OC,1)= 

5@) THEN 55@ 

53@ IF VC=3 AND OB(0C,1)=0 THEN 550 

540 GOTO 480 

55@ PRINT “I’ve got that already":RETURN 

564 IF OB(OC,1)=L OR OB(OC,1)=+50@ THEN 

58@ 

570 IF (QB(13,1)=L OR QB(13,1)=0) AND OB 
(0C.1)=5@ THEN 5S8@ ELSE 2440 

580 IF VC=2 THEN 679 

598 IF OB(OC,2)>0 THEN PRINT "That’s ste 
aling and I’m no thief":RETURN 

600 08(0C.1)=6:IF OC<>13 THEN LD=LD+1:G60 
TO 640 

610 TE=@:GOTO 649 

620 IF L=21 OR L=22 OR L=23 OR L=3@ THEN 
630 ELSE 659 

638 IF OB(5,1)=@ THEN WA=1:GNTO 660 

640 PRINT “I?ve nothing to put it in"sRE 
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TURN 

650 PRINT "I can’t reach the water":RETU 

RN 

6680 PRINT "Right. I’ve got that":RETURN 

4570 IF OB(OC,2)<1 THEN PRINT “That’s not 
far sale”":RETURN 

680 IF MO<OB(OC,2) THEN PRINT “Not encaug 

h money”: RETURN 

696 PRINT "That’s bought":0B (OC, 1)=@:M0= 

MO-OB (OC, 2): OB(OC, 2) =@ 

70@ IF OC<>13 THEN LD=LD+1 

710 RETURN 

720 REMEXX*XXLOADKEEEX 

73@ IF OC<>13 THEN PRINT “I can only loa 

d the mule":sRETURN 

740 IF OB(13,1)=@ OR OB(13,1)=L THEN 7790 

750 IF OB(13,1)<>0 AND OB(12,1)2<>L THEN 

PRINT "The mule’s not here” 

768 RETURN 

776 PRINTS INPUT “Which item shall I load 
"sLDS 

780 IF LEN(LDS)<3 THEN PRINT “I don’t un 

derstand “;LDS:RETURN 

790 FOR OC=1 TO 16sIF INSTR(1,0BS(0C),LD 

$) THEN 810 

8B6O@ NEXT OC:ZPRINT “I don’t understand "; 

LDS: RETURN 

810 IF OB(COC.1)=@ THEN OB(OC,1)=50:LD=LD 

~1:sPRINT "That’s loaded": RETURN 


820 IF OB(OC,1)=S5@ THEN PRINT "“That’s al 
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HEHE ER eoumensuocer 


ready an the mule": RETURN 
8=@ PRINT “I dan’t have ";LD$: RETURN 
B40 ? SHOOT 
850 IF OB(1,1)<>@ THEN PRINT "I don’t ha 
ve a gun"sRETURN 
B60 IF OC=16 THEN 880 
| a7e IF OC<>146 THEN 92@ 
88@ PRINT:PRINT "That’s anly wounded it 
and made it very mad" 
89@ GOSUB 2430:PRINT:PRINT., “It’s chargi 
ng at me now" 
90® GOSUB 2430 
91@ PRINT:PRINT "The bear has killed ne, 
now we’ll never get rich":END 
92@ IF OC=17 THEN 942 
93@ IF OC<¢>17 THEN 950 
94@ PRINT: PRINT “That’s not doing any go 
ad"s RETURN 
950 IF OC=18 THEN 970 
960 IF OC<>18 THEN 990 
97@ PRINT “The snake is dead": 0B(OC, 2) = 
:0B%(0C)="A DEAD SNAKE": WA=0 
982 RETURN 
990 PRINT “What gond will that do?":RETU 
RN 
190@ ® DROP/LEAVE 
1010 IF 08(0C,1)<>0 THEN 2450 
1020 IF OC=46 AND L=9 FHEN PRINT "The bea 
r eats the honey and falls asleep" 


1630 IF OC<>6 OR L<>9 THEN 1060 
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HE pveieanmermss HTH ETD 
1040 0OBS(146)="A SLEEPING BEAR": OBS (46)="A 
N EMPTY POT OF HONEY": OB(6,1)=L2LD=LD-1 
1650 LO(13,5) =@: RETURN 

1060 IF OC=11 AND VC=17 THEN 1640 

107@ IF QOC=11 THEN PRINT “The bottle sma 
shed": 0B (OC, 2) =—-1:0B3(11)="A SMASHED WHI 
SKEY BOTTLE" 

1086 IF OC=11 THEN OB(OC,1)=L:LD=lD-1:RE 
TURN 

1090 OB(NC,1)=LsPRINT "I?ve done that":I 
F OC<>13 THEN LD=LD-1 

1100 IF OC“<>13 THEN RETURN 

1110 IF L<17 THEN QB(13,1)=INT (RND¥12)+6 
1120 IF L>21 THEN 08B(13,1)=INT (RND%*11)+2 
® 

1136 RETURN 

1140 ’ BLOW UP 

1150 IF 0B8(9,1)<>0 THEN PRINT "I don’t h 
ave the dynamite": RETURN 

1160 CLSsLOCATE 17,12:PRINT “BOOM! !* 
1170 PRINT:SPRINTSPRINT “I never was any 
gacd with dynamite" 

118@ PRINT "Now I’m finished":END 

1190 7 SELL 

1200 IF L<>4 THEN 1230 

1210 IF OB(14,1)=@ THEN PRINT “The clerk 
accepts the nugget and hands me #1800, 
1220 IF O08B(14.1)=@ THEN PRINT “Your shar 
@ is $500, now you can buy thatDisc Driv 
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e you wanted! “:END 
1230 IF OB(OC,1)<>@ THEN PRINT "I don’t 
have the “53N% 
1246 IF OB(0C,1)=@ THEN PRINT “No one’s 
buying" 
1256 RETURN 
1260 ” DIG 
127060 IF OB(OC,1)<>@ THEN PRINT “I?ve not 
hing to dig with”:sRETURN 
1280 IF OC=32 AND L=33 THEN PRINT “That 
was hard work, but the tunnel is clear 
now": NV=1 
1290 IF DV=1 THEN 0B(32,1)=-1:10(34,5) =7 
: DV=03 RETURN 
1300 PRINT "I don’t think that will help 
"sRETURN 
1310 ”’ DRINK 
1320 IF OC<21 OR OC+25 THEN 13590 
1330 IF WA=0 THEN PRINT "I have no water 
1740 IF WAC>9 THEN 1370: RETURN 
1350 IF OB(0C.1)“>0@ THEN 2450 
1360 IF QC<1@ OR OC>11 THEN PRINT "I can 
*t drink that":RETURN 
1370 PRINT "That tasted good" 
1380 IF OC=10 THEN OBS(1@)="AN EMPTY BEE 
R GLASS" 
1390 IF OC=11 THEN OBS(11)="AN EMPTY WHI 
SKEY BOTTLE”: EW=1 
14@@ RETURN 
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1410 ” MOVE 

1420 IF OB(OC,1)=L OR OB(OC.1)=L+5@ THEN 
1440: DV=1 

1430 IF DV=1 THEN DV=@:GOTO 24406 

144@ IF OB(OC.2)<@ THEN PRINT "You must 

be joking":RETURN 

1450 IF OC=18 THEN O8(14,1)=36 ELSE 1470 
14469 LN(13,5) =2: OB (26, 1) =14210(26.5) =@:Lb 

0(25,5)=5: IF GR THEN NB(17,1)=16:L0(15,5 
=3 

1470 PRINT “I’ve dane that":RETURN 

1486 ” CLIMB 

1490 IF L<>35 THEN PRINT “There’s nowher 

e ta climb":sRETURN 

1500 IF DC<S THEN 37@ 

1510 IF OB(15,1)=@ THEN PRINT "Which dir 

ectioann?": RETURN 

1520 PRINT “I need rope to do that"“:RETU 

RN 

152@ ” LIGHT 

154@ IF OC=8 AND OB(O0C,1)=0 THEN LL=1:PR 
INT "I see the light“:sRETURN 

155@ PRINT “I can’t da that": RETURN 

1560 ” BREAK 

15760 IF OB(7,1)<>@ THEN PRINT “I?ve noth 

ing ta do that with": RETURN 

158@ IF OB(0C.1)=L OR OB(OC,1)=L+50 THEN 
140@: DV=1 

159@ IF DV=1 THEN DV=0:60T0 2440 


1606 IF OC=30@ THEN PRINT "I think I can 
12 


STEHT, couenmuccer | : 
get through now":OB (NC, 1)=~-1:2L0(31,5)=7: 
RETURN 

1619 GOTO 1320 

16260 ° GIVE 

16306 IF OB(OC,1)<>@ THEN 2450 

1640 IF OC=11 AND (L=15 OR L=14) AND EW= 
@ THEN PRINT “The Indians take the whisk 
ey and ride off": DV=1 

14650 IF DV=1 THEN DV=0:LD=LD-1:O0B(OC,1)= 
-12:0B(17, 1)=—-15L0(16, 5) =@310(15, 5) =@: RET 
URN 

16460 IF OC=11 AND EW=1 THEN PRINT “Who w 
ants an empty bottle?":RETURN 

147@ IF L=9 AND L0(13,5)=1 THEN PRINT "I 
7m not getting that close to the bear":R 
ETURN 

148@ PRINT “No on wants “:NS:RETURN 

169@ ” TETHER 

1706 IF OC=13 AND OB(NC,1)=@ THEN NB(OC. 
1)=LsTE=1:sPRINT “That’s done":RETURN 
1710 IF OB(OC,1)2<>@ THEN PRINT “I don’t 
have the “;N%:sRETURN 

1720 PRINT “I don’t understand”: RETURN 
1736 ” 

1746 ” SINGLE WORDS 

1750 ” 

1760 IF LEN(Q$)<3 THEN 160 

177@ FOR SC=1 TO S:IF INSTR(1, SWE (SC) ,Q$ 
) THEN 1792 


1786 NEXT SC:GOTN 1640 
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1790 IF SC<S THEN VC=1:DC=SC:GOTO 330 
1806 ON SC-4 GOSUB 1820, 1860, 188¢,1970 
181@ GOTO 35e 

1820 7 HELP 

1830 IF OB(13,2)>@ THEN 1850 

1840 IF OB(13,1)<>@ AND TE=0 THEN PRINT 
"The mule wasn’t tethered, he’s wandered 
of f!'":RETURN 

185@ PRINT "You’re helping me!!!":RETURN 
1860 ” LOOK 

187@ QOK=1:RETURN 

188@ ” INVENTORY 

1890 CLS:PRINT “I HAVE:-—“:NS=it:sFOR OC=1 
TO 152IF OB(COC,1)=@ THEN PRINT OBS(NC)=:N 
S=e 

1900 IF OB(0C.1)=5@ AND 0B(13,1)=@ THEN 
PRINT OBS (00):" on the mule"“:NS=@ 

1910 NEXT OC 

1920 IF MO=@ AND NS THEN PRINT "Nothing" 


2 RETURN 
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1936 IF MQ=@ THEN PRINT "No money":RETUR 

N 

1940 IF MDO=100 THEN PRINT "1 Dollar" 

1950 IF MO<1@@ THEN PRINT MO; "Cents" 

1940 RETURN 

1970 ” HIDE 

19B8@ IF L=14 AND LO(13,5)=2 THEN PRINT " 

They’ ve passed by":LO(12,5) =@:0B(26,1)=- 

1:RETURN 

1990 PRINT "“That’s not going to help”:RE 
TURN 

2000 ” 

2@10 ” DIRECTION CONDITIONS 

2020 ” 

2030 ON LO(LA(L.DC).5) GOTN 2040, 2060, 20 
90, 2110, 2140, 2190, 2220, 2270, 2320, 2340, 23 
90 

2040 ? BEAR 1 

2050 PRINT “I’m not going that way while 
that bear’ sthere"s RETURN 

2660 ” BANDITS 2 

2070 PRINT “The bandits have captured me 
2080 PRINT “They’ve stolen the gold nugg 
et, now we’ll never be rich":END 
2090 7 INDIANS 3 

2160 PRINT “The indians won’t let me pas 
s":RETURN 

2116 ”" PROVISONS 4 


2120 IF OB8(4,1)=0 OR OB(4,1)=5@ THEN CM= 
15 
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1:RETURN 

2130 PRINT “I’m getting hungry. I’m not 
gaing any further without food":RETURN 

2140 ? WATER 5 

2150 IF WA AND (NB(5,1)=@ OR OB(5,1)=5@) 
THEN CM=1:RETURN 

214@ PRINT “It’s hot in this desert":GOS 

UB 2430 

2170 PRINT:PRINT “I?m dying of thirst":6 

OSUB 243@ 

218@ INK @.9:CLS:PEN S:LOCATE 14,12:sPRIN 

T "I?M DEAD":LOCATE 1,24:END 

2190 7 SHUTTERING & 

2200 IF NB(30,1)=-1 THEN CM=1: RETURN 

2210 PRINT “I can’t get past the shutter 
ing":RETIJRN 

222@ ? LAMP 

2230 IF LL AND 0OB(G,1)=0 THEN 2250 

22490 PRINT “It?s too dark to go that way 
“RETURN 

2250 IF L=28 THEN £10(31,.5)=11:60T0 2400 

2260 CM=1: RETURN 

2270 ” ROPE 8 

2289 IF 0B(15,1)<>@ THEN 22300 

2290 IF L<>35 THEN CM=1:s RETURN 

2300 IF O08(15.1)=@ THEN 2236 

25190 PRINT “My skeleton will join those 

on the floor":GOSUB 2436:END 

232@ 7 EARTH 9 

2330 PRINT "I can’t get past the dirt"s:R 
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2346 ’ DROWNING 12 

2350 IF L=19 OR L=20 THEN 2370 

2560 CM=1s RETURN 

2276 PRINT “I don’t think I can make it 
to the bank":GOSUB 243a@ 

2586 PRINT “I think I’m done for":GOSUB 
2430: END 

2390 ’ MULE INSIDE 11 

2400 IF NB(13,1)=@ THEN PRINT "I can’t t 
ake the mule inside“: RETURN 

2410 IF L=28 THEN LO(31,5)=7 

2420 CM=1:RETURN 

2430 FOR N=1 TO 300@: NEXT:RETURN 

2440 PRINT “There is no “:N#:RETURN 

2450 PRINT “I don’t have “;N%:RETURN 
2460 ’ 

2470 " WHAT IS SEEN 

248 ” 

2490 IF L=4 THEN PRINT “The clerk says, 
"Have you come to sell me gold? I will 

pay* 

200@ IF L=4 THEN PRINT "$1@0@ for a larg 
@ nugget. Lan you find one?":RETURN 

2510 IF L=19 OR L=20 THEN PRINT “I can’t 
see a thing”: RETURN 

2520 IF L=32 OR (L=33 AND LO(34,5)=@) TH 

EN PRINT “The lamp is very dim, I can’t 
see very far":sRETURN 


2550 IF L=3 THEN PRINT “I see:-"“sPRINT S 
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L%:GOTO 2570 

2540 PRINT “I See:—-“eNS=1:sFOR QC=1 TO 46 

2:IF O8(0C,1)=L THEN PRINT OBS (OC) :NS=@ 

2550 NEXT OCs IF NS THEN PRINT "Nothing a 

# interest”":RETURN 

2560 IF L<3 THEN RETURN 

2570 ON L-2 GOTO 2580, 2630, 2590, 2610: RET 

URN 

258@ PRINT “The storekeeper says, ”’What 

are you wanting stranger?’ ":RETURN 

2590 PRINT “The bartender asks, *What’11l 

you have stranger? Beer is 4 cents” 

2600 PRINT "and whiskey is & cents. “:RET 

URN 

2619 PRINT "The blacksmith says, ’If you 

"re needing transport the horse will cos 

t you 75" 

2620 PRINT “cents but you can have the m 

ule for only2ZS cents. ":RETURN 

2630 RETURN 

2640 REM 

2650 REM&ERKkXERKREAD DATA BASE SZXERKXK 

266@ REM 

2670 REMSESSSRLOCATIONSASARKSEK 

2680 RESTORE: DIM LQS (36) ,L0(34,.5) 

2690 FOR N=1 TO 36:READ LOS(N)=sFOR M=1 T 

QO S:READ LO(N,M)sNEXT M,N 

2700 SLS="PICK - 10 CENTS SPADE - 9 C 

ENTS AXE —- 1@ CENTS HONEY - SC 

ENTS LAMP — 4 CENTS DYNAMITE 7 C 
18 
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ENTS PROVISIOQNS-9 CENTS WATER FLAS 
K 14 CENTS GUN AND BULLETS - 2@ CE 
NTS" 


271@ REMKKSKXVERBSSEXKEX 

272@ DIM VB&(18):FOR N=1 Th) 18:READ VBS ( 

N) sNEXT 

2730 REMSKXXXDIRECTIONS&E&KXE 

2740 FOR N=1 TO 4:sREAD IDS (N) sNEXT 

275@ REMS&2xRSINGLE WORDSKXEEK 

2769 FOR N=1 TO 8:READ SWS (N) s NEXT 

2770 REMEKSKXKXOBIJECTSERSEXKXK 

2789 DIM OBS (46),0B(46,2):FOR N=1 TO 46:3 

READ OBS(N):FOR M=1 TO 2:READ OB(N,M) : NE 

XT M,N 

2790 RETURN 

2B@O REMEKRXEZKXDATA BASES KEKE 

281@ REMSESKXKKLOCATIONSSXSKEKE 

282@ DATA in the main street of Deadwood 

s2yo5e 71,459 

2B3@ DATA in the main street of Deadwood 

972451,5,@ 

284@ DATA in the General Stores.9,90,0,1, 

11 

2858 DATA in the Assay Office,9,1,0,@,11 

286 DATA in the Salnan,9,2,%@,0,11 

287@ DATA in the Stables,@,0,0,2,0 

288@ DATA on a dusty trail,8,—-1,2,-1,90 

2890 DATA on a dusty trail,—-1.9,7,-1,9 

2900 DATA in a dense forest,10,13,-1,8,0 

| 291@ DATA an a winding trail,11,-1,9,-1; ! 
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@ 

2920 
2930 
2940 
2950 
2969 
2979 
29B0 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


in a canyon,12.0,10,0,9 

in a blind canyon,®@,%,11,9,@ 
in a dense faorest.-1,14,-1,9,1 
in a dense forest,15,-1,0,13,9 
an an open plain, 146,-1,14,-1,9 
an an apen plain,17,—-1,15,-1,3 
on the bank of a fast-flawing 


river, 2@,21,16,18,19 
299@ DATA in a river gorge,19,17,0,9,19 
3000 DATA being battered to death on the 
rocks, 18,18,18,18,@ 
3010 DATA drowning in deep water,17,17,1 


7.175 


Q@ 


3020 DATA an the bank af a wide river,22 


3~1,.- 


1,17, 


@ 


Z@30 DATA in the river it’s shallow enou 
gh to ford,23,-1,21,20,9 

304@ DATA an the bank of a wide river, 24 
971,22,-1,9 

3@5@ DATA an a dusty trail,25,—-1,23,~1,4 


3960 
3070 
3QB0 


DATA 
DATA 
DATA 


971,26,9 


3090 
3190 


DATA 
DATA 


3110 DATA 


39 
3120 


DATA 


in a desert, 26,-1,24,-1,.90 
in a desert,-1,27,25,-1,5 
at the foot of the hills,-1,28 


an the hillside,—-1,31,29,27.@ 
an a narrow path, 28,-1,30,-1,9 
by a little stream, 29,-1,-1,-1 


in a tunnel, 9, 32,9, 28.6 
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3130 DATA in a tunnel,%,35,9,31,8 

3140 DATA in a tunnel, ?@,34,9,35,8 

315@ DATA in a twisting tunnel, 2%, 0, 36,33 
79 

314@ DATA at the bottom of a hole,@,35,9 
goal 

3170 DATA in a small cavern,34,9,9,0,7 
3180 REMSESEXKVERBSEAKSTES 

3190 DATA GO, BUY, GET,LOAD, SHOOT, DROP, BLO 
WUP, SELL, DIG, DRINK 

3200 DATA MOVE, CLIMB, LIGHT, BREAK, GIVE, TE 
THER, LEAVE, HIDE 

3210 REMXERRXEDIRECTIONSS2SKKK 

3220 DATA NORTH, EAST, SOUTH, WEST 

3230 REMSKRXXRSINGLE WORDSSKEKXS 

324@ DATA NORTH, EAST, SOUTH, WEST.HELP,LOO 
K, INVENTORY, HIDE 

3250 REMRXSKEENBIECTSEREEKEK 

32466 DATA A GUN AND BULLETS,53,2@0,A PICK 
353,10,A SPADE, 55,9 


3270 DATA PROVISIONS, 53,9,DRINKING FLASK 
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3286 DATA AN AXE,53.5,A LAMP, 52, 4,DYNAMI 
TE, 53,7 

3290 DATA A GLASS OF BEER,S,3,A BOTTLE 0 

F WHISKEY.5,6 

330@ DATA A HORSE,46,75,AN QLD MULE, 6, 25, 

A LARGE GOLD NUGGET.-1,9 

3310 DATA A ROPE,12,9,A J.ARGE BAR TO THE 
EAST,9,-1 

3320 DATA A BAND OF INDIANS,15,~-1.A HUGE 
RATTLESNAKE, 346, —-1 

333@ DATA NO WAY OUT BUT THE WAY I CAME, 


12,-1 
3240 DATA A RAGING TORRENT, 18,-1,DEEP WA 
TER, 17,-1 

325@ DATA SHALILOQW WATER, 21,2,SHALLOW WAT 
ER, 22,@ 


3360 DATA SHALLOW WATER, 23,0,A TRICKLE O 

F WATER, 3@,@ 

3376 DATA BANDITS THEY’VE NOT SEEN ME YE 

T,-1,-1 

3380 DATA SAND EVERYWHERE, 25,-1,SAND EVE 

RYWHERE. 26, -1 

339@ DATA A TUNNEL INTO THE HILLSIDE, 28, 

-1,SHUTTERING BLOCKS THE ENTRANCE, 28, -1 

34@@ DATA THE TUNNEL ABOVE ME SKELETONS 

ON THE FLOOR, 35,-1 

341@ DATA LOOSE DIRT BLOCKING THE WAY,33 

a1 

3420 DATA A NARROW PATH, 28,-1,A GENERAL 
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STORES AND AN ASSAY OFFICE.,1,~—-1 

3430 DATA A SALOON AND A STABLE, 2,—-1,DEA 

DWOOD,7,-1 

3440 DATA A FOREST,8,-1.A FOREST, 1@,-1,A 

CANYON, 19,-1 

3450 DATA HIGH CLIFFS,11,-1.A FOREST, 15, 

-1,A RIVER, 16,-1 

344@ DATA A STREAM, 29,-1. TREES AND BUSHE 

5.14,1,A RIVER, 24.-1," “,2,1 

3470 REMXEXKAKEKTITLE PAGES KXKKKXE 

3486 CLS:LOCATE 13,1@:PEN 2:PRINT "GOLDE 

N NUGGET”sPEN 1 

3496 PEN S:LOCATE 8,12:PRINT “BY B.Beesl 

ey & C.Gifford”sPEN 1 

3500 FOR T=1 TO 5@ 

3510 X=INT (RND&38) +12 Y=INT (RND&23) +1 

3520 IF Y>9 AND Y<13 THEN 3510 

3530 LOCATE X.YsPRINT CHR#(231):SOUND 1. 

INT (RND&15@) +5@ 

3540 NEXT 

3550 FOR T=1 TO 10@O:NEXT T 

3560 REMSXSKS INSTRUCT IONSKS ERX 

3576 CLS:MODE 1 

3580 PRINT “* I hear that a man can ge 

t rich finding GOLD." 

3590 PRINT "* 1711 need some help thou 

gh, I knew you would oblige...anything 

we find, we’1l share fifty—fifty” 

3600 PRINT "” Tell me what to do by us 

ing:- single word commands e.g. LO 
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OK, EAST" 

2619 PRINT,, “two-word commands e.g. BUY 
GUN, GO EAST" 

362@ FOR T=6@0 TN 60 STEP-10 

3430 SOUND 1,.TsNEXT 

3640 RETURN 
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If you really enjoy playing adventures then there is a 
good chance that you will enjoy writing your own adven- 
tures, based on your own plot, even more. Actually con- 
structing your own adventure is not as difficult as it 
sounds and once you have written a couple of adven- 
tures you will appreciate how much fun it can be. 

Firstly, let me distinguish the adventure game from 
other games and simulations. In my opinion, the adven- 
ture game has the following elements: 

1) Locations. 

2) Usually some form of logical connection between 

the locations (though the logic is sometimes far from 

perfect). 

3) Some form of reward or aim to work for; escape, for 

instance, or the accumulation of treasure. Without 

some objective, an adventure would become 
pointless and boring. 

4) Some form of obstacle hindering the progress of the 

adventurer. 

5)Some element of discovery — find the wizard, the ex- 

it, how to make your character move, and so on. 

6) Some form of command with which adventurers can 

direct themselves around the locations and thus in- 

teract with the adventure itself. 

Before you write any of the actual program you should 
plan out a number of things. You must have a plot, and 
descriptions of the locations, characters, objects and the 
links between them all. In addition, I recommend that 
you work out all the obstructions, puzzles and connec- 
tions between locations. This information will be a great 
help when you are writing and, more importantly, 
debugging your adventure. 

Let's start with the plot of your adventure. This will in- 
volve ascenario and some form of objective(s), as well as 
some major hinderances. Plots can be easy to come by, 
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searching for gold, finding your way out of amaze, rescu- 
ing a trapped maiden. Thinking up a novel plot is much 
more difficult but it does make for a vastly improved 
game. Itcan get rather tiringsittingin front ofascreentry- 
ing to accumulate more treasure from a similarly-named 
castle that is guarded by similar-type monsters. What 
your adventure needs is something new oratleasta little 
less common. ‘Crash!’, the adventure set inside the com- 
puter, is an example of such a plot. 

The actual objectives and the scenario, or playing en- 
vironment, are closely connected. Once you have deter- 
mined one, the other is simple to think of. If youchoose an 
underwater scenario, then an obvious objective would 
be to find asunken wreck. Similarly, if youchoose escap- 
ing from a maze as your objective then a mythological 
scenario with gods and minotaur-type monsters im- 
mediately springs to mind. Below are a few other sug- 
gested scenarios and objectives: 





Small Island You have been shipwrecked and 
must find a way to get off the 
island. 

Office Building As a secret agent, you are sear- 


ching for some top secret files. 


The Human Body As an antibody you must find the 
source of infection and fight it fast. 


Mysterious House You have gone ona mystery tour 
for some fun, things have turned 
dangerous and you and several 
others have been left here. What 
are the secrets in the house? 


Houses of Can you find the leaked govern- 

Parliament ment report before the mediado? 
Your chance of a place in the 
Cabinet depends on your suc- 
cess In this mission. 








The London A plague of rats that have left the 

Underground sewers are resting in the 
Underground system. Can you 
eradicate them before they are 
strong enough to attack again? 


When you put your mind to it, the possibilities are 
limited only by your imagination. Why not set an adven- 
ture in your own house, where the main aim isto avoid do- 
ing the washing-up. Finding a good plot should not be that 
difficult and it really can help make your adventure anin- 
teresting one. 

Once you have the plot, it is not too hard thinking up 
names and descriptions of locations. Obviously, some 
will need to be very specific as they tie inclosely withthe 
plot; in the human body scenario, all the locations will ob- 
viously have to be parts of the body. In most adventures, 
however, there is also a need for some less specific, even 
though not so interesting, locations. These locations add 
to the realism of the adventure; for instance, in the 
Houses of Parliament scenario, going from the main 
chamber in the House of Commonsstraight into the bar or 
the library may lack realism, and after a few locations, 
you will start to run out of names. Locations such as cor- 
ridors, small storerooms, a dusty alcove, a windswept 
quadrangle and a committee room may add to the 
adventure. 

The descriptions of the locations is a matter of personal 
taste. I do not like long-winded descriptions; memory 
space is still vital enough to be conserved for a greater 
number of locations or more fiendish puzzles. However, I 
know people who revel in the task of creating beautiful 
passages of descriptive prose for each location. If you 
decide to write long descriptions, it may be a good idea 
to have a shortened version of the location description 
which can be printed up once the player has seen the 
longer version. This makes the adventure more in- 
teresting to the user who can always read the long 
description again, accessing it by using the command, 
LOOK. 
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I will discuss characters in the same breath as objects 
since in adventure programming they are often treated 
in the same way. Your plot will obviously determine a 
number of the characters and the objects, but you may 
decide to add others either to create further obstructions 
or to aid the adventurer in his struggle to reach his goal. 
Although I can think of adventures where there are no 
characters, all adventures need objects of some kind. 
The objects and the characters are linked most strongly 
with the puzzles in the adventure, and this is the next part 
under discussion. 


In an adventure, the plot and the puzzles are the two 
most important factors to be considered. Again, some of 
the puzzles will obviously come from the plot, but almost 
certainly you will need a number of extra puzzles to com- 
plete the adventure. One can categorise puzzles into 
three types. The first type of puzzle is directly linked to 
the plot and must be solved before the adventure can be 
finished. The second type of puzzle is not directly linked 
to the plot but still needsto be solved for the adventure to 
be completed. The final type of puzzle need not be solv- 
ed; but while it may add to the realism and the fun of the 
adventure, it may also slow down the adventurer who 1s 
not aware that it is unimportant. Below are examples of 
the first two types of puzzle: 

Need To Be Solved 
1) The castle is dark without the torch, you can still 
move around but each location is not described. 
2) You need a gun if you want to get past the guard at 
the door. You must haggle with the trader in the 
village. 
3) You have broken a vase in the office and, to get out 
without it being noticed, you must find some glue. 
4) The door is not locked but it is too heavy for you to 
push open. It is huge and wooden. 
5) Youcome toa large canyon, you cannot climb down 
and behind you isa herd of stampeding cattle. All you 
have is unlimited amounts of string. What are you 
going to do? 
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Those of you who enjoy lateral thinking puzzlesshould be 
able to solve the last problem. The solution 1s to fill the 
canyon with string, walk over the canyon — whichis now 
full — and then quickly take out all the string. 

You only needa couple of very difficult problems in an 
adventure but these should be supplemented with a 
number of ‘red herrings’. Some suggested ones are in- 
dicated below: 

1) You are carrying a torch, and you spot a toy 

chemical set; if the player examines or removes the 

set then the torchignites it and the adventurer is blown 
to smithereens. 

2) Isthe rubber duck ofany use? After playing whacky 

adventure games like Pimania no one can be sure. 

3) A crimson fish (this one is too obvious for words!) 
There are many quite simple puzzles which can be 
implemented in your own adventure: locked doors, 
creatures barring your way, I'm sure you know the sorts 
of puzzles. 

You will need to make a ‘map’ of your adventure show- 
ing all the links between locations, positions of objects 
and so on. The majority of adventures use the compass 
points, N, S, E and W, for direction of movement, with 
maybe Up and Down. Your adventure can use these, as 
well asthe four points — NE, NW,SE, SW — oritcanusea 
different system. You will also need to formulate a pro- 
gram routine that transfers your position from one loca- 
tion to another. There are a number of different methods, 
from simple grid systems to complex systems that allow 
movement in 16 different directions (including through 
time!). 

Once you have all this neatly down on paper, you can 
start the actual programming. As with all games, there 
are certain points to note. Make sure the screen is 
presented neatly with no words cut intwo by the end ofa 
line. Add a bit of sound and some graphics here and 
there but try to make them relevant to the program, that 
is, when someone fires a gun, have a sound indicating 
this, and when the adventurer has just killed a monster, 
turn the screen red. Small touches like these increase an 
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adventure garm@'s interest. Graphic pictures of locations 
are fine as lone: as they appear quickly; there is nothing 
more tiresome than having to wait for ages while ascreen 
fills with a drawing. The user will grow tired of the pic- 
tures very rapidly despite their quality. 

Finally, a word on structuring your adventure pro- 
gram. Why bother to structure programs at all? There 
are a number of good reasons for doing so. Since BASIC 
1s a poorly structured language — compared to a 
language such as FORTH — the programmer must add 
his own framework. Structuring a program speedsa pro- 
gram up, as It does not have to pass through irrelevant 
masses of code every loop. Structuring also eradicates 
duplication of program functions and helps to save much 
memory space that can be put to good use elsewhere. 


Another reason, particularly applicable to adventure 
programmers, is that after leaving a program for a few 
days, you will start to forget where each routine is. By 
structuring a program, the adventure writer knows 
where each routine is and what it does, and this makes 
debugging a great deal easier. 

After all this, ] hope you will see that there ts a lot of 
work to be done when writing an adventure. It is, 
however, within the bounds of most computer users. It is 
an ideal way tostart programming once the beginner has 
written a few simple programs. Adventures, in short, 
whether you write them or play them, can be enormously 
enjoyable. 
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This area of computing has not been overflooded with 
publications, and only recently have a number of books 
come onto the market — some excellent, some awful. 
Below I mention only the good ones. 

While anumber ofthese books may not have been writ- 
ten specifically for your computer, the ones mentioned 
either have an informative text or adventures that can be 
easily converted to your machine. 


Creating Adventure Games on Your BBC Micro 

Ian Watt. Interface/ Addison Wesley 
Ian really does know his stuff when it comes to writing 
adventure programs. He has his own style of adven- 
ture writing and, in this book, he revealsall. Itisaslim 
volume containing three adventures all in text so they 
can be converted to other computers. 


Creating Adventure Programs on Your Computer 

Andrew Nelson. Interface 
I have met Andrew and he 1s full of interesting ideas, 
which he kindly shared with me. This book contains a 
number of adventures, all written in Microsoft BASIC 
— and easily converted to another computer. A par- 
ticularly intriguing title is 'The Aftermath of the Asmo- 
vian Disaster’. 


Adventure Writing 

Aardvark-80, 2352S. Commerce, Walled Lake, 

MI 48088, USA 
This 16-page booklet, sold in the United States (for the 
exorbitant sum of $5), is a terrific help to all adventure 
writers. The adventure program included, ‘Death 
Ship’, is broken down in detail and comes with an ad- 
dendum offering versions for most home computers. 
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Creating Adventure Games on Your Dragon 32 

Clive Gifford. Interface 
Five full adventures are explained in detail, one of 
which has now been transferred to cassette and disc 
software. Three of the five adventures can be con- 
verted for use on other computers without much dif- 
ficulty. 


The ZX81 Pocket Book 

Trevor Toms. Phipps Associates 
Only one section is devoted to adventures but, init, the 
author details a vastly different approach to adven- 
ture writing. The book may be worth buying, par- 
ticularly if you can find it at a discounted price. 


Creating Adventures on Your Spectrum 

Peter Shaw/James Mortleman. Interface 
I know Peter well — he ison the editorial board of Your 
Spectrum magazine — and this 1s a strong book with 
many novel adventures, some featuring excellent 
graphics. Another point of note: the illustrations in this 
book were drawn by Peter himself. 


Writing BASIC Adventure Games for the TRS-80 
Frank Dacosta. Tab Books 
This is a most useful guide to wnting adventures. It was 
the book I first cut my teeth on and itis still proving in- 
valuable now. 


Write Your Own Adventure Programs 

for Your Microcomputer 

Tyler/Howarth. Osborne 
At just under £2 this must be the best value adventure 
book around. Do not be put off by the childish presen- 
tation, for the book has some serious things to say. 
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